X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FController.pm;h=d1c6274f3161b582c09df12a95cbd0b918120a7b;hb=e2c53892260bc031f8dd42ec403fc96269020e7b;hp=bf082ec434cfc3a32fa1131cc452487462f839d6;hpb=cf37d21a258273df337d7c3d9214b286713ec9ca;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Controller.pm b/lib/Catalyst/Controller.pm index bf082ec..d1c6274 100644 --- a/lib/Catalyst/Controller.pm +++ b/lib/Catalyst/Controller.pm @@ -29,7 +29,7 @@ has action_namespace => predicate => 'has_action_namespace', ); -has actions => +has _controller_actions => ( is => 'rw', isa => 'HashRef', @@ -41,7 +41,7 @@ sub BUILD { my $action = delete $args->{action} || {}; my $actions = delete $args->{actions} || {}; my $attr_value = $self->merge_config_hashes($actions, $action); - $self->actions($attr_value); + $self->_controller_actions($attr_value); } =head1 NAME @@ -260,7 +260,7 @@ sub _parse_attrs { # superior while mantaining really high degree of compat my $actions; if( ref($self) ) { - $actions = $self->actions; + $actions = $self->_controller_actions; } else { my $cfg = $self->config; $actions = $self->merge_config_hashes($cfg->{actions}, $cfg->{action}); @@ -376,9 +376,7 @@ sub _parse_PathPrefix_attr { sub _parse_ActionClass_attr { my ( $self, $c, $name, $value ) = @_; - unless ( $value =~ s/^\+// ) { - $value = join('::', $self->_action_class, $value ); - } + $value = Catalyst::Utils::resolve_namespace($self->_action_class, $value); return ( 'ActionClass', $value ); }