X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FDispatchType%2FDefault.pm;h=f1ad104b3702fd38d1dc66f1065f14287f50cefb;hb=634780e00f88651be2fe6f261d56604e313b369a;hp=abe887e357fba1a35adf521357425b2e233869b4;hpb=4082e67814e85bc9820e56eb38e5e21511c0a5f8;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/DispatchType/Default.pm b/lib/Catalyst/DispatchType/Default.pm index abe887e..f1ad104 100644 --- a/lib/Catalyst/DispatchType/Default.pm +++ b/lib/Catalyst/DispatchType/Default.pm @@ -1,7 +1,9 @@ package Catalyst::DispatchType::Default; -use strict; -use base qw/Catalyst::DispatchType/; +use Moose; +extends 'Catalyst::DispatchType'; + +no Moose; =head1 NAME @@ -9,14 +11,32 @@ Catalyst::DispatchType::Default - Default DispatchType =head1 SYNOPSIS -See L. +See L. =head1 DESCRIPTION +Dispatch type managing default behaviour. For more information on +dispatch types, see: + +=over 4 + +=item * L for how they affect application authors + +=item * L for implementation information. + +=back + =head1 METHODS =head2 $self->match( $c, $path ) +If path is empty (i.e. all path parts have been converted into args), +attempts to find a default for the namespace constructed from the args, +or the last inherited default otherwise and will match that. + +If path is not empty, never matches since Default will only match if all +other possibilities have been exhausted. + =cut sub match { @@ -38,10 +58,9 @@ sub match { return 0; } -=head1 AUTHOR +=head1 AUTHORS -Matt S Trout -Sebastian Riedel, C +Catalyst Contributors, see Catalyst.pm =head1 COPYRIGHT @@ -50,4 +69,6 @@ the same terms as Perl itself. =cut +__PACKAGE__->meta->make_immutable; + 1;