|
A MODIFIER STUBpackage Petal::CodePerl::Modifiers::; sub process_value { my $class = shift; my $hash = shift; my $value = shift; } sub inline { my $self = shift; my $hash_expr = shift;
my $expr = shift;
my $perlf = <<'EOM';
EOM
chomp($perlf);
return Petal::CodePerl::Expr::perlsprintf($perlf, $expr);
}
push @mods , __PACKAGE__;
|