unshift @args, $arg;
}
+ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg for @{$c->req->captures||[]};
+
$c->log->debug( 'Path is "' . $c->req->match . '"' )
if ( $c->debug && $c->req->match );
$captures ||= [];
foreach my $dispatch_type ( @{ $self->dispatch_types } ) {
my $uri = $dispatch_type->uri_for_action( $action, $captures );
- return $uri if defined($uri);
+ return( $uri eq '' ? '/' : $uri )
+ if defined($uri);
}
return undef;
}
my $namespace = $action->namespace;
my $name = $action->name;
- my $container = $self->find_or_create_action_container($namespace);
+ my $container = $self->_find_or_create_action_container($namespace);
# Set the method value
$container->add_action($action);
$self->container_hash->{$namespace} = $container;
}
-sub find_or_create_action_container {
+sub _find_or_create_action_container {
my ( $self, $namespace ) = @_;
my $tree ||= $self->tree;
$self->action_container_class('Catalyst::ActionContainer');
my @classes =
- $self->do_load_dispatch_types( @{ $self->preload_dispatch_types } );
+ $self->_load_dispatch_types( @{ $self->preload_dispatch_types } );
@{ $self->registered_dispatch_types }{@classes} = (1) x @classes;
foreach my $comp ( values %{ $c->components } ) {
$comp->register_actions($c) if $comp->can('register_actions');
}
- $self->do_load_dispatch_types( @{ $self->postload_dispatch_types } );
+ $self->_load_dispatch_types( @{ $self->postload_dispatch_types } );
return unless $c->debug;
};
$walker->( $walker, $self->tree, '' );
- $c->log->debug( "Loaded Private actions:\n" . $privates->draw )
- if ($has_private);
+ $c->log->debug( "Loaded Private actions:\n" . $privates->draw . "\n" )
+ if $has_private;
# List all public actions
$_->list($c) for @{ $self->dispatch_types };
}
-sub do_load_dispatch_types {
+sub _load_dispatch_types {
my ( $self, @types ) = @_;
my @loaded;