X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FCompletionDriver%2FKeywords.pm;h=d953ee89268df5490fb69464ad1c9a945111fd17;hp=decc6c8a2e4513efc1310062d7e66807e3f0a89f;hb=9d2a4940f5958d82828272364ef754e9290b6113;hpb=6631e15ccd2313ff350fd9bfa44c1ccdbac77100 diff --git a/lib/Devel/REPL/Plugin/CompletionDriver/Keywords.pm b/lib/Devel/REPL/Plugin/CompletionDriver/Keywords.pm index decc6c8..d953ee8 100644 --- a/lib/Devel/REPL/Plugin/CompletionDriver/Keywords.pm +++ b/lib/Devel/REPL/Plugin/CompletionDriver/Keywords.pm @@ -1,11 +1,19 @@ +use strict; +use warnings; package Devel::REPL::Plugin::CompletionDriver::Keywords; +# ABSTRACT: Complete Perl keywords and operators + +our $VERSION = '1.003027'; + 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; -with qw( - Devel::REPL::Plugin::Completion -); +sub BEFORE_PLUGIN { + my $self = shift; + $self->load_plugin('Completion'); +} around complete => sub { my $orig = shift; @@ -32,13 +40,10 @@ around complete => sub { __END__ -=head1 NAME - -Devel::REPL::Plugin::CompletionDriver::Keywords - Complete Perl keywords and operators +=pod =head1 AUTHOR Shawn M Moore, C<< >> =cut -