=head1 METHODS
-=over 4
-
-=item $self->list($c)
+=head2 $self->list($c)
=cut
my ( $self, $c ) = @_;
my $re = Text::SimpleTable->new( [ 36, 'Regex' ], [ 37, 'Private' ] );
for my $regex ( @{ $self->{compiled} } ) {
- my $compiled = $regex->{re};
- my $action = $regex->{action};
- $re->row( $compiled, "/$action" );
+ my $action = $regex->{action};
+ $re->row( $regex->{path}, "/$action" );
}
$c->log->debug( "Loaded Regex actions:\n" . $re->draw )
if ( @{ $self->{compiled} } );
}
-=item $self->match( $c, $path )
+=head2 $self->match( $c, $path )
=cut
return 0;
}
-=item $self->register( $c, $action )
+=head2 $self->register( $c, $action )
=cut
$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)
+=head2 $self->register_regex($c, $re, $action)
=cut
);
}
-=back
-
=head1 AUTHOR
Matt S Trout