sub _invoke_as_component {
my ( $self, $c, $component_or_class, $method ) = @_;
+ if( $component_or_class eq blessed($c->application) ){
+ my $possible_action = $c->application->action_for($method);
+ return $possible_action if $possible_action;
+ if( my $code = $c->application->can($method) ){
+ return $self->_method_action_class->new(
+ {
+ name => $method,
+ code => $code,
+ reverse => "$component_or_class->$method",
+ class => $component_or_class,
+ namespace => Catalyst::Utils::class2prefix(
+ $component_or_class
+ ),
+ }
+ );
+ }
+ }
my $component = $self->_find_component($c, $component_or_class);
my $component_class = blessed $component || return 0;
code => $code,
reverse => "$component_class->$method",
class => $component_class,
- namespace => Catalyst::Utils::class2prefix(
- $component_class, ref($c)->config->{case_sensitive}
- ),
+ namespace => Catalyst::Utils::class2prefix( $component_class ),
}
);
}