use Text::SimpleTable;
use Catalyst::Utils;
use URI;
+use Scalar::Util ();
has _paths => (
is => 'rw',
=head1 SYNOPSIS
-See L<Catalyst>.
+See L<Catalyst::DispatchType>.
=head1 DESCRIPTION
+Dispatch type managing full path matching behaviour. For more information on
+dispatch types, see:
+
+=over 4
+
+=item * L<Catalyst::Manual::Intro> for how they affect application authors
+
+=item * L<Catalyst::DispatchType> for implementation information.
+
+=back
+
=head1 METHODS
=head2 $self->list($c)
if ( keys %{ $self->_paths } );
}
+sub _action_args_sort_order {
+ my ( $self, $action ) = @_;
+
+ my ($args) = @{ $action->attributes->{Args} || [] };
+
+ return $args if Scalar::Util::looks_like_number($args);
+
+ return ~0;
+}
+
=head2 $self->match( $c, $path )
For each action registered to this exact path, offers the action a chance to
$path = '/' if !defined $path || !length $path;
- foreach my $action ( @{ $self->_paths->{$path} || [] } ) {
+ # sort from least args to most
+ my @actions = sort { $self->_action_args_sort_order($a) <=>
+ $self->_action_args_sort_order($b) }
+ @{ $self->_paths->{$path} || [] };
+
+ foreach my $action ( @actions ) {
next unless $action->match($c);
$c->req->action($path);
$c->req->match($path);
=head1 COPYRIGHT
-This program is free software, you can redistribute it and/or modify it under
+This library is free software. You can redistribute it and/or modify it under
the same terms as Perl itself.
=cut