X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FDispatchType%2FPath.pm;h=93d300a8e139d6ba94b9772e98544326ff2483ca;hb=e30ed35ddf9e2a389fc84fe13abaf7a46e9f9478;hp=95cf445fba90d1daa3a28c7d0db1341e7cf624cc;hpb=e5ecd5bc38bac3e2fcfaf643ea2a4c6ab46d7e57;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/DispatchType/Path.pm b/lib/Catalyst/DispatchType/Path.pm index 95cf445..93d300a 100644 --- a/lib/Catalyst/DispatchType/Path.pm +++ b/lib/Catalyst/DispatchType/Path.pm @@ -3,8 +3,6 @@ package Catalyst::DispatchType::Path; use Moose; extends 'Catalyst::DispatchType'; -#use strict; -#use base qw/Catalyst::DispatchType/; use Text::SimpleTable; use URI; @@ -15,6 +13,8 @@ has _paths => ( default => sub { +{} }, ); +no Moose; + =head1 NAME Catalyst::DispatchType::Path - Path DispatchType @@ -57,7 +57,7 @@ first action that matches, if any; if not, returns 0. sub match { my ( $self, $c, $path ) = @_; - $path ||= '/'; + $path = '/' if !defined $path || !length $path; foreach my $action ( @{ $self->_paths->{$path} || [] } ) { next unless $action->match($c); @@ -128,10 +128,9 @@ sub uri_for_action { } } -=head1 AUTHOR +=head1 AUTHORS -Matt S Trout -Sebastian Riedel, C +Catalyst Contributors, see Catalyst.pm =head1 COPYRIGHT