X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FDispatchType%2FDefault.pm;h=a642eea90a74931a0f8b57942280bfba1affc0ce;hp=50a1630df68519820528bd351a1d7f5f9f169cae;hb=5299fff8fe52a4f4c10698b258984e41a2f6964f;hpb=e8b9f2a92084b3b9dab6b2b879900481b8548b3b diff --git a/lib/Catalyst/DispatchType/Default.pm b/lib/Catalyst/DispatchType/Default.pm index 50a1630..a642eea 100644 --- a/lib/Catalyst/DispatchType/Default.pm +++ b/lib/Catalyst/DispatchType/Default.pm @@ -3,9 +3,7 @@ package Catalyst::DispatchType::Default; use Moose; extends 'Catalyst::DispatchType'; - -#use strict; -#use base qw/Catalyst::DispatchType/; +no Moose; =head1 NAME @@ -13,10 +11,21 @@ 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 ) @@ -32,7 +41,7 @@ other possibilities have been exhausted. sub match { my ( $self, $c, $path ) = @_; - return if $path =~ m!/!; # Not at root yet, wait for it ... + return if $path ne ''; # Not at root yet, wait for it ... my $result = ( $c->get_actions( 'default', $c->req->path ) )[-1]; # Find default on namespace or super @@ -49,16 +58,17 @@ sub match { return 0; } -=head1 AUTHOR +=head1 AUTHORS -Matt S Trout -Sebastian Riedel, C +Catalyst Contributors, see Catalyst.pm =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 +__PACKAGE__->meta->make_immutable; + 1;