X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FCompletionDriver%2FKeywords.pm;h=d451b2ebff4285a3c09b4d2be99be1f93ad161b2;hb=e73ba6daf10d1d86070fd978092f9731310b410d;hp=f9171634155a6d2ae9e68c9b75b8d0b67be9cc68;hpb=cfd1094b45c394258ccda08216f1435bf40e1d50;p=p5sagit%2FDevel-REPL.git diff --git a/lib/Devel/REPL/Plugin/CompletionDriver/Keywords.pm b/lib/Devel/REPL/Plugin/CompletionDriver/Keywords.pm index f917163..d451b2e 100644 --- a/lib/Devel/REPL/Plugin/CompletionDriver/Keywords.pm +++ b/lib/Devel/REPL/Plugin/CompletionDriver/Keywords.pm @@ -1,7 +1,16 @@ +use strict; +use warnings; package Devel::REPL::Plugin::CompletionDriver::Keywords; + use Devel::REPL::Plugin; +use Devel::REPL::Plugin::Completion; # die early if cannot load use B::Keywords qw/@Functions @Barewords/; -use namespace::clean -except => [ 'meta' ]; +use namespace::autoclean; + +sub BEFORE_PLUGIN { + my $self = shift; + $self->load_plugin('Completion'); +} around complete => sub { my $orig = shift; @@ -32,5 +41,9 @@ __END__ Devel::REPL::Plugin::CompletionDriver::Keywords - Complete Perl keywords and operators +=head1 AUTHOR + +Shawn M Moore, C<< >> + =cut