X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FCommands.pm;h=2bb12d78aa8b21d76e0c7f6259f67b0d6b8d0117;hb=2c1cf68730092df9d48a6115d03be122b0c3ba55;hp=953009c8dad7a0b631c77e2eb6d79bb48b31d30d;hpb=6edfdc075bf84142924281bafdd9f75f08a9b93d;p=p5sagit%2FDevel-REPL.git diff --git a/lib/Devel/REPL/Plugin/Commands.pm b/lib/Devel/REPL/Plugin/Commands.pm index 953009c..2bb12d7 100644 --- a/lib/Devel/REPL/Plugin/Commands.pm +++ b/lib/Devel/REPL/Plugin/Commands.pm @@ -3,16 +3,17 @@ package Devel::REPL::Plugin::Commands; use Devel::REPL::Plugin; use Scalar::Util qw(weaken); -use namespace::clean -except => [ 'meta' ]; -use vars qw($COMMAND_INSTALLER); +use namespace::autoclean; +our $COMMAND_INSTALLER; has 'command_set' => ( - is => 'ro', required => 1, + is => 'ro', lazy => 1, default => sub { {} } ); sub BEFORE_PLUGIN { my ($self) = @_; + $self->load_plugin('Packages'); unless ($self->can('setup_commands')) { $self->meta->add_method('setup_commands' => sub {}); } @@ -62,3 +63,12 @@ around 'compile' => sub { }; 1; + +__END__ + +=head1 NAME + +Devel::REPL::Plugin::Commands - Generic command creation plugin using injected functions + +=cut +