X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL.pm;h=b0fce4e4b2d9dfb1e911815169a347244622309d;hp=f7cb62bc09760bdb838241c54bd0912cfab8ec1a;hb=e2d0b0198529e2e06593df8ebab7a8413bc932e1;hpb=784530113a2b8f94299b9682d9d9d6ddedacb227 diff --git a/lib/Devel/REPL.pm b/lib/Devel/REPL.pm index f7cb62b..b0fce4e 100644 --- a/lib/Devel/REPL.pm +++ b/lib/Devel/REPL.pm @@ -1,15 +1,30 @@ package Devel::REPL; use Term::ReadLine; -use Moose; -use namespace::clean -except => [ 'meta' ]; +use Moo; +use namespace::sweep; use 5.008001; # backwards compat, doesn't warn like 5.8.1 -our $VERSION = '1.003010_02'; - -with 'MooseX::Object::Pluggable'; +our $VERSION = '1.003014'; use Devel::REPL::Error; +use Scalar::Util qw/blessed/; +use Module::Runtime (); + +sub load_plugin { + my ($self, $plugin) = @_; + $plugin = "Devel::REPL::Plugin::$plugin"; + Module::Runtime::use_module("$plugin"); + if (my $pre = $plugin->can('BEFORE_PLUGIN')) { + $pre->($self, $plugin); + } + Moo::Role->apply_roles_to_package( + 'Devel::REPL', $plugin + ); + if (my $pre = $plugin->can('AFTER_PLUGIN')) { + $pre->($self, $plugin); + } +} has 'term' => ( is => 'rw', required => 1, @@ -287,6 +302,34 @@ L L +=item * + +L + +=item * + +L + +=item * + +L + +=item * + +L + +=item * + +L + +=item * + +L + +=item * + +L + =back =head2 Plugins @@ -299,7 +342,9 @@ output, or even add commands to the shell environment. A number of plugins ship with C, and more are available on the CPAN. Some of the shipped plugins are loaded in the default profile, mentioned -above. +above. These plugins can be loaded in your C<< $HOME/.re.pl/repl.rc >> like: + + load_plugin qw( CompletionDriver::Global DumpHistory ); Writing your own plugins is not difficult, and is discussed in the L manual page, along with links to the manual pages of @@ -336,19 +381,11 @@ L >= 0.74 =item * -L >= 0.0009 - -=item * - L >= 0.18 =item * -L >= 0.16 - -=item * - -L +L =item *