Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more
123456789101112131415 use strict; use warnings;package Module::Optimize;use Module::Compile -base;sub pmc_is_optimizer_module { 1 }# Compile/Filter some source code into something else. This is almost# always overridden in a subclass.sub pmc_optimize { my ($class, $source) = @_; return $source;}1;
use
strict;
warnings;
package
Module::Optimize;
Module::Compile -base;
sub
pmc_is_optimizer_module { 1 }
# Compile/Filter some source code into something else. This is almost
# always overridden in a subclass.
pmc_optimize {
my
(
$class
,
$source
) =
@_
;
return
}
1;