package Catalyst::DispatchType::Index;
-use strict;
-use base qw/Catalyst::DispatchType/;
+use Moose;
+extends 'Catalyst::DispatchType';
+no Moose;
=head1 NAME
=head2 $self->match( $c, $path )
Check if there's an index action for a given path, and set it up to use it
-if there is.
+if there is; only matches a full URI - if $c->req->args is already set
+this DispatchType is guaranteed not to match.
=cut
return 0;
}
-=head1 AUTHOR
+=head2 $self->uri_for_action( $action, $captures )
-Sebastian Riedel, C<sri@cpan.org>
+get a URI part for an action; always returns undef is $captures is set
+since index actions don't have captures
+
+=cut
+
+sub uri_for_action {
+ my ( $self, $action, $captures ) = @_;
+
+ return undef if @$captures;
+
+ return undef unless $action->name eq 'index';
+
+ return "/".$action->namespace;
+}
+
+=head1 AUTHORS
+
+Catalyst Contributors, see Catalyst.pm
=head1 COPYRIGHT
=cut
+__PACKAGE__->meta->make_immutable;
+
1;