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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-02-12 00:23:27 +0000 (Thu, 12 Feb 2009)
New Revision: 9283

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm
Log:
Use Moose::Util::find_meta instead of ->Class::MOP::Object::meta.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm	2009-02-12 00:23:18 UTC (rev 9282)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Controller.pm	2009-02-12 00:23:27 UTC (rev 9283)
@@ -1,13 +1,13 @@
 package Catalyst::Controller;
 
 use Moose;
+use Moose::Util qw/find_meta/;
 
 use namespace::clean -except => 'meta';
 
 # Note - Must be done at compile time due to attributes (::AttrContainer)
 BEGIN { extends qw/Catalyst::Component Catalyst::AttrContainer/; }
 
-use Class::MOP::Object ();
 use Catalyst::Exception;
 use Catalyst::Utils;
 
@@ -181,7 +181,7 @@
     my $class = ref $self || $self;
     #this is still not correct for some reason.
     my $namespace = $self->action_namespace($c);
-    my $meta = $self->Class::MOP::Object::meta();
+    my $meta = find_meta($self);
     my %methods = map { $_->body => $_->name }
         grep { $_->package_name ne 'Moose::Object' } #ignore Moose::Object methods
             $meta->get_all_methods;