webgui/t/lib/WebGUI/Macro/Callback.pm

17 lines
180 B
Perl

package WebGUI::Macro::Callback;
use strict;
use warnings;
my $callback = sub {''};
sub process {
return $callback->(@_);
}
sub setCallback {
$callback = shift;
}
1;