use Catalyst::Action;
use Catalyst::ActionContainer;
use Catalyst::DispatchType::Default;
+use Catalyst::DispatchType::Index;
use Text::ASCIITable;
use Tree::Simple;
use Tree::Simple::Visitor::FindByPath;
# Preload these action types
our @PRELOAD = qw/Path Regex/;
+# Postload these action types
+our @POSTLOAD = qw/Index Default/;
+
=head1 NAME
Catalyst::Dispatcher - The Catalyst Dispatcher
sub get_action {
my ( $self, $c, $action, $namespace, $inherit ) = @_;
return [] unless $action;
- $namespace ||= '/';
- $inherit ||= 0;
+ $namespace ||= '';
+ $namespace = '' if $namespace eq '/';
+ $inherit ||= 0;
my @match = $self->get_containers($namespace);
- my @results;
+ if ($inherit) { # Return [ [ $act_obj ], ... ] for valid containers
+ return [
+ map { [ $_->{$action} ] } # Make [ $action_obj ]
+ grep { defined $_->{$action} } # If it exists in the container
+ map { $_->actions } # Get action hash for container
+ @match
+ ];
+ }
+ else {
+ my $node = $match[-1]->actions; # Only bother looking at the last one
- foreach my $child ( $inherit ? @match : $match[-1] ) {
- my $node = $child->actions;
- push( @results, [ $node->{$action} ] ) if defined $node->{$action};
+ if ( defined $node->{$action}
+ && ( $node->{$action}->prefix eq $namespace ) )
+ {
+ return [ [ $node->{$action} ] ];
+ }
+ else {
+ return [];
+ }
}
- return \@results;
}
=item $self->get_containers( $namespace )
}
}
- # Default actions are always last in the chain
- push @{ $self->dispatch_types }, Catalyst::DispatchType::Default->new;
+ # Postload action types
+ for my $type (@POSTLOAD) {
+ my $class = "Catalyst::DispatchType::$type";
+ eval "require $class";
+ Catalyst::Exception->throw( message => qq/Couldn't load "$class"/ )
+ if $@;
+ push @{ $self->dispatch_types }, $class->new;
+ }
return unless $class->debug;