=head1 METHODS
-=over 4
-
-=item $self->list($c)
+=head2 $self->list($c)
=cut
if ( @{ $self->{compiled} } );
}
-=item $self->match( $c, $path )
+=head2 $self->match( $c, $path )
=cut
foreach my $compiled ( @{ $self->{compiled} || [] } ) {
if ( my @snippets = ( $path =~ $compiled->{re} ) ) {
+ next unless $compiled->{action}->match($c);
$c->req->action( $compiled->{path} );
$c->req->match($path);
$c->req->snippets( \@snippets );
return 0;
}
-=item $self->register( $c, $action )
+=head2 $self->register( $c, $action )
=cut
return 0;
}
-=item $self->register_regex($c, $re, $action)
+=head2 $self->register_regex($c, $re, $action)
=cut
);
}
-=back
-
=head1 AUTHOR
Matt S Trout