sub dispatch {
my ( $self, $c ) = @_;
-
if ( $c->action ) {
$c->forward( join( '/', '', $c->action->namespace, '_DISPATCH' ) );
}
}
my $local_args = 0;
- my $arguments = [];
+ my $arguments = $c->req->args;
if ( ref( $_[-1] ) eq 'ARRAY' ) {
- $arguments = pop(@_);
- $local_args++;
+ $arguments = pop(@_);
+ $local_args = 1;
}
my $result;
my $tail = $2;
$result = $c->get_action( $tail, $1 );
if ($result) {
- $command = $tail;
- if ($local_args) { unshift( @{$arguments}, @extra_args ) }
- else {
- $local_args++;
- $arguments = \@extra_args;
- }
+ $local_args = 1;
+ $command = $tail;
+ unshift( @{$arguments}, @extra_args );
last DESCEND;
}
unshift( @extra_args, $tail );
}
- if ($local_args) { local $c->request->{arguments} = [ @{$arguments} ] }
-
- $result->execute($c);
+ if ($local_args) {
+ local $c->request->{arguments} = [ @{$arguments} ];
+ $result->execute($c);
+ }
+ else { $result->execute($c) }
return $c->state;
}
}
# If not, move the last part path to args
-
unshift @args, pop @path;
}
+ $c->log->debug( 'Path is "' . $c->req->match . '"' )
+ if ( $c->debug && $c->req->match );
+
$c->log->debug( 'Arguments are "' . join( '/', @args ) . '"' )
if ( $c->debug && @args );
}