# This is a temporary throwaway class.
# The real one will use the metamodel.
package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);
sub new {
my($class,$f)=@_;
bless {raw_sub => $f}, $class;
}
sub do {
my($o,@args)=@_;
$o->{'raw_sub'}(@args);
}
1;
__END__