X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FCompletionDriver%2FTurtles.pm;h=abdd761c176d29d95a867eb676fd4c0c2006a3f8;hb=f109bc790c4450543e3bd07beb3abee5c4b923e0;hp=0ce6d774a159ae3965fc9623a06972c63d8aa021;hpb=75a08365ddd836a78f37d82b8d38c1642e7b20af;p=p5sagit%2FDevel-REPL.git

diff --git a/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm b/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm
index 0ce6d77..abdd761 100644
--- a/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm
+++ b/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm
@@ -1,6 +1,12 @@
+use strict;
+use warnings;
 package Devel::REPL::Plugin::CompletionDriver::Turtles;
+
+our $VERSION = '1.003027';
+
 use Devel::REPL::Plugin;
-use namespace::clean -except => [ "meta" ];
+use Devel::REPL::Plugin::Completion;    # die early if cannot load
+use namespace::autoclean;
 
 sub BEFORE_PLUGIN {
     my $self = shift;
@@ -24,8 +30,8 @@ around complete => sub {
         map { "$pre$_" }
         grep { $_ =~ $filter }
         map { /^expr?_command_(\w+)/ ? $1 : () }
-        map { $_->{name} }
-        $self->meta->compute_all_applicable_methods
+        map { $_->name }
+        $self->meta->get_all_methods
       ),
     );
   } else {