foreach my $method (@methods) {
my $name = $method->name;
my $attributes = $method->attributes;
- #next unless $attributes;
my $attrs = $self->_parse_attrs( $c, $name, @{ $attributes } );
if ( $attrs->{Private} && ( keys %$attrs > 1 ) ) {
$c->log->debug( 'Bad action definition "'
sub _parse_ActionClass_attr {
my ( $self, $c, $name, $value ) = @_;
- $value = Catalyst::Utils::resolve_namespace($self->_action_class, $value);
+ my $appname = $self->_application;
+ $value = Catalyst::Utils::resolve_namespace($appname . '::Action', $self->_action_class, $value);
return ( 'ActionClass', $value );
}