X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FDispatchType%2FRegex.pm;h=38b2513de47de66926e07b5002742a8da85a132d;hp=def40e83da78c0e434172433874cceaf657ac157;hb=694d15f1f6031de10d1ecb047b9e66dd0982e3a3;hpb=97e14a039625db1575f964bce8b6a74cd22d84d2 diff --git a/lib/Catalyst/DispatchType/Regex.pm b/lib/Catalyst/DispatchType/Regex.pm index def40e8..38b2513 100644 --- a/lib/Catalyst/DispatchType/Regex.pm +++ b/lib/Catalyst/DispatchType/Regex.pm @@ -26,7 +26,7 @@ sub list { my ( $self, $c ) = @_; my $re = Text::SimpleTable->new( [ 36, 'Regex' ], [ 37, 'Private' ] ); for my $regex ( @{ $self->{compiled} } ) { - my $action = $regex->{action}; + my $action = $regex->{action}; $re->row( $regex->{path}, "/$action" ); } $c->log->debug( "Loaded Regex actions:\n" . $re->draw ) @@ -77,6 +77,8 @@ sub register { $self->register_path( $c, $r, $action ); $self->register_regex( $c, $r, $action ); } + return 1 if @register; + return 0; } =item $self->register_regex($c, $re, $action)