X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FDispatchType%2FRegex.pm;h=38b2513de47de66926e07b5002742a8da85a132d;hb=910410b87a021ff29369bcda4de8ce1013d87f17;hp=def40e83da78c0e434172433874cceaf657ac157;hpb=dcc61a75845d35ef799c6693d3ff514ab46dcb33;p=catagits%2FCatalyst-Runtime.git 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)