[Bast-commits] r6468 - trunk/Devel-REPL/lib/Devel/REPL/Plugin/CompletionDriver

[oliver at dev.catalyst.perl.org]

Author: oliver
Date: 2009-05-30 17:37:00 +0000 (Sat, 30 May 2009)
New Revision: 6468

Modified:
   trunk/Devel-REPL/lib/Devel/REPL/Plugin/CompletionDriver/Methods.pm
   trunk/Devel-REPL/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm
Log:
resolve rt.cpan#44919 fix deprecated use of compute_all_applicable_methods

Modified: trunk/Devel-REPL/lib/Devel/REPL/Plugin/CompletionDriver/Methods.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Plugin/CompletionDriver/Methods.pm	2009-05-30 17:17:02 UTC (rev 6467)
+++ trunk/Devel-REPL/lib/Devel/REPL/Plugin/CompletionDriver/Methods.pm	2009-05-30 17:37:00 UTC (rev 6468)
@@ -57,8 +57,8 @@
 
   return $orig->(@_),
          grep { $_ =~ $re }
-         map  { $_->{name} }
-         $metaclass->compute_all_applicable_methods;
+         map  { $_->name }
+         $metaclass->get_all_methods;
 };
 
 1;

Modified: trunk/Devel-REPL/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm	2009-05-30 17:17:02 UTC (rev 6467)
+++ trunk/Devel-REPL/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm	2009-05-30 17:37:00 UTC (rev 6468)
@@ -24,8 +24,8 @@
         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 {