X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FPackages.pm;h=a2b3fcd250c71154d36c2d0547a59d584b0aa0ad;hp=9fb14bad53341d87d17ef5282d9d11bcc153bc17;hb=88d6bf36484ce580aa093654129e9b707ccb1c66;hpb=7c7c35c1216e297f82f97dcc0e27a28bc97d4e95 diff --git a/lib/Devel/REPL/Plugin/Packages.pm b/lib/Devel/REPL/Plugin/Packages.pm index 9fb14ba..a2b3fcd 100644 --- a/lib/Devel/REPL/Plugin/Packages.pm +++ b/lib/Devel/REPL/Plugin/Packages.pm @@ -26,7 +26,8 @@ around 'mangle_line' => sub { my $line = $self->$orig(@args); # add a BEGIN block to set the package around at the end of the sub # without mangling the return value (we save it off into a global) - $line .= '; BEGIN { $Devel::REPL::Plugin::Packages::PKG_SAVE = __PACKAGE__; }'; + $line .= ' +; BEGIN { $Devel::REPL::Plugin::Packages::PKG_SAVE = __PACKAGE__; }'; return $line; }; @@ -49,3 +50,12 @@ package Devel::REPL::Plugin::Packages::DefaultScratchpad; # declare empty scratchpad package for cleanliness 1; + +__END__ + +=head1 NAME + +Devel::REPL::Plugin::Packages - Keep track of which package the user is in + +=cut +