X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FController.pm;h=c5e6249be3b014bd7a24f2b547ac2de8caf59fac;hp=9ea7e7df09398cf5f0da9eb1ac9dad131c334ade;hb=74c89dead3cfd8e95cbe853adbc6fe9eed539f4e;hpb=f6ba9b548282aeef7c4a03e4ae849586d7e3c60b diff --git a/lib/Catalyst/Controller.pm b/lib/Catalyst/Controller.pm index 9ea7e7d..c5e6249 100644 --- a/lib/Catalyst/Controller.pm +++ b/lib/Catalyst/Controller.pm @@ -4,6 +4,7 @@ package Catalyst::Controller; use base qw/Catalyst::Component Catalyst::AttrContainer/; use Moose; +use Class::MOP::Object (); use Scalar::Util qw/blessed/; use Catalyst::Exception; use Catalyst::Utils; @@ -189,7 +190,7 @@ sub register_actions { my $class = ref $self || $self; #this is still not correct for some reason. my $namespace = $self->action_namespace($c); - my $meta = $self->meta; + my $meta = $self->Class::MOP::Object::meta(); my %methods = map { $_->body => $_->name } grep { $_->package_name ne 'Moose::Object' } #ignore Moose::Object methods $meta->get_all_methods;