diff options
Diffstat (limited to 'lib/Reply/Plugin/Packages.pm')
-rw-r--r-- | lib/Reply/Plugin/Packages.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/Reply/Plugin/Packages.pm b/lib/Reply/Plugin/Packages.pm index 8e1b85b..fd48737 100644 --- a/lib/Reply/Plugin/Packages.pm +++ b/lib/Reply/Plugin/Packages.pm @@ -18,7 +18,15 @@ sub mangle_line { my $self = shift; my ($line) = @_; - return "package $self->{package};\n$line\n;BEGIN { \$" . __PACKAGE__ . "::package = __PACKAGE__ }"; + my $package = __PACKAGE__; + return <<LINE; +package $self->{package}; +$line +; +BEGIN { + \$${package}::package = __PACKAGE__; +} +LINE } sub compile { |