use Text::SimpleTable;
use Catalyst::Utils;
use URI;
+use Scalar::Util ();
has _paths => (
is => 'rw',
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;
# sort from least args to most
- my @actions = sort { ($b->attributes->{Args}||0) <=>
- ($a->attributes->{Args}||0) }
+ my @actions = sort { $self->_action_args_sort_order($a) <=>
+ $self->_action_args_sort_order($b) }
@{ $self->_paths->{$path} || [] };
foreach my $action ( @actions ) {