use Catalyst::Utils;
use Text::SimpleTable;
use Tree::Simple;
-use Tree::Simple::Visitor::FindByPath;
use Class::Load qw(load_class try_load_class);
use Encode 2.21 'decode_utf8';
return $possible_action if $possible_action;
}
- if ( my $code = $component_class->can($method) ) {
+ my $component_to_call = blessed($component_or_class) ? $component_or_class : $component_class;
+
+ if ( my $code = $component_to_call->can($method) ) {
return $self->_method_action_class->new(
{
name => $method,
code => $code,
reverse => "$component_class->$method",
- class => $component_class,
+ class => $component_to_call,
namespace => Catalyst::Utils::class2prefix(
$component_class, ref($c)->config->{case_sensitive}
),