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%2FTurtles.pm;h=316157d28bd115227e2f73547f0246c56fdb09a4;hp=ce0f3ed64cfcb9dbbff8593a8755b5b1efd207a7;hb=6f4f9516b3422a8ce51b89b596fb808b197f833e;hpb=cfd1094b45c394258ccda08216f1435bf40e1d50

diff --git a/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm b/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm
index ce0f3ed..316157d 100644
--- a/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm
+++ b/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm
@@ -1,12 +1,15 @@
-#!/usr/bin/perl
-
+use strict;
+use warnings;
 package Devel::REPL::Plugin::CompletionDriver::Turtles;
+
 use Devel::REPL::Plugin;
+use Devel::REPL::Plugin::Completion;    # die early if cannot load
+use namespace::autoclean;
 
-with qw(
-  Devel::REPL::Plugin::Completion
-  Devel::REPL::Plugin::Turtles
-);
+sub BEFORE_PLUGIN {
+    my $self = shift;
+    $self->load_plugin('Completion');
+}
 
 around complete => sub {
   my $orig = shift;
@@ -25,8 +28,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 {
@@ -42,5 +45,9 @@ __END__
 
 Devel::REPL::Plugin::CompletionDriver::Turtles - Complete Turtles-based commands
 
+=head1 AUTHOR
+
+Yuval Kogman E<lt>nothingmuch@woobling.orgE<gt>
+
 =cut