[Catalyst-commits] r8413 - Catalyst-Runtime/5.80/trunk/lib/Catalyst

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-09-12 15:33:41 +0100 (Fri, 12 Sep 2008)
New Revision: 8413

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm
Log:
Use get_all_methods instead of the deprecated compute_all_applicable_methods.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm	2008-09-12 14:33:31 UTC (rev 8412)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm	2008-09-12 14:33:41 UTC (rev 8413)
@@ -191,11 +191,10 @@
     #this is still not correct for some reason.
     my $namespace = $self->action_namespace($c);
     my $meta = $self->meta;
-    my %methods = map{ $_->{code}->body => $_->{name} }
-        grep {$_->{class} ne 'Moose::Object'} #ignore Moose::Object methods
-            $meta->compute_all_applicable_methods;
+    my %methods = map { $_->body => $_->name }
+        grep { $_->package_name ne 'Moose::Object' } #ignore Moose::Object methods
+            $meta->get_all_methods;
 
-
     # Advanced inheritance support for plugins and the like
     #moose todo: migrate to eliminate CDI compat
     my @action_cache;