sub dispatch {
my ( $self, $c ) = @_;
if ( $c->action ) {
-use Data::Dumper; warn Dumper( $c->action, $c->action->namespace );
$c->forward( join( '/', '', $c->action->namespace, '_DISPATCH' ) );
}
my ( $c, $command ) = @_;
my ( $action, $args ) = $self->_command2action(@_);
- unless ($action) {
+ unless ($action && defined $action->namespace) {
my $error =
qq/Couldn't go to command "$command": /
. qq/Invalid action or component./;