X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FController.pm;h=37e36e10bad9ebb211f4373e29ed5cbd74fc93a1;hb=fb0c5b21c3c972bc88b8c6c481f9937f31658a23;hp=aca0b1caf5f18369c06c12cefda4c9bc4fd2ed75;hpb=d0e78355a560fb0f38da0f73e1ca85aae978cb16;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Controller.pm b/lib/Catalyst/Controller.pm index aca0b1c..37e36e1 100644 --- a/lib/Catalyst/Controller.pm +++ b/lib/Catalyst/Controller.pm @@ -156,7 +156,7 @@ around action_namespace => sub { } } - my $namespace = Catalyst::Utils::class2prefix(ref($self) || $self, $case_s) || ''; + my $namespace = Catalyst::Utils::class2prefix(ref($self) ? $self->_component_name : $self, $case_s) || ''; $self->$orig($namespace) if ref($self); return $namespace; }; @@ -190,7 +190,7 @@ sub get_action_methods { @methods, map { $meta->find_method_by_name($_) - || confess( 'Action "' + || confess( 'Action "' . $_ . '" is not available from controller ' . ( ref $self ) ) @@ -207,7 +207,7 @@ sub register_actions { sub register_action_methods { my ( $self, $c, @methods ) = @_; - my $class = ref $self || $self; + my $class = blessed($self) ? $self->_component_name : $self; #this is still not correct for some reason. my $namespace = $self->action_namespace($c);