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=064c3fab5efec584fbf3b2cbf01f0fbb5790623d;hp=a2b3fcd250c71154d36c2d0547a59d584b0aa0ad;hb=796cd7ec80de14e45ca8221d545aceb7b9bc0b71;hpb=46407908bb18019c66a5035bb6fc22549f704967 diff --git a/lib/Devel/REPL/Plugin/Packages.pm b/lib/Devel/REPL/Plugin/Packages.pm index a2b3fcd..064c3fa 100644 --- a/lib/Devel/REPL/Plugin/Packages.pm +++ b/lib/Devel/REPL/Plugin/Packages.pm @@ -1,9 +1,14 @@ +use strict; +use warnings; package Devel::REPL::Plugin::Packages; -use Devel::REPL::Plugin; +# ABSTRACT: Keep track of which package the user is in + +our $VERSION = '1.003027'; -use namespace::clean -except => [ "meta" ]; +use Devel::REPL::Plugin; +use namespace::autoclean; -use vars qw($PKG_SAVE); +our $PKG_SAVE; has 'current_package' => ( isa => 'Str', @@ -45,17 +50,9 @@ around 'eval' => sub { return $self->$orig(@args); }; -package Devel::REPL::Plugin::Packages::DefaultScratchpad; +package # hide from PAUSE + 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 -