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%2FINC.pm;h=de95a224972126e1efcadb743e8c1df601d232f7;hp=0daf803ab5ec3adf0f270b90219802eb8fa66a70;hb=77327851f87a17466307e8fccdbf2e0d3c2e58dc;hpb=ce00c3c0a40bb8b788d36d85bdbba43d05523b9a diff --git a/lib/Devel/REPL/Plugin/CompletionDriver/INC.pm b/lib/Devel/REPL/Plugin/CompletionDriver/INC.pm index 0daf803..de95a22 100644 --- a/lib/Devel/REPL/Plugin/CompletionDriver/INC.pm +++ b/lib/Devel/REPL/Plugin/CompletionDriver/INC.pm @@ -1,8 +1,15 @@ +use strict; +use warnings; package Devel::REPL::Plugin::CompletionDriver::INC; +# ABSTRACT: Complete module names in use and require + +our $VERSION = '1.003030'; + use Devel::REPL::Plugin; +use Devel::REPL::Plugin::Completion; # die early if cannot load use File::Next; use File::Spec; -use namespace::clean -except => [ 'meta' ]; +use namespace::autoclean; sub BEFORE_PLUGIN { my $self = shift; @@ -63,7 +70,7 @@ around complete => sub { my @found; # most VCSes don't litter every single fucking directory with garbage. if you - # know of any other, just stick them in here. noone wants to complete + # know of any other, just stick them in here. No one wants to complete # Devel::REPL::Plugin::.svn my %ignored = ( @@ -99,7 +106,7 @@ around complete => sub { } }; - # look through all of + # look through all of INC: for (@INC) { my $path = $_; @@ -122,13 +129,10 @@ around complete => sub { __END__ -=head1 NAME - -Devel::REPL::Plugin::CompletionDriver::INC - Complete module names in use and require +=pod =head1 AUTHOR Shawn M Moore, C<< >> =cut -