sub list {
my ( $self, $c ) = @_;
- my $re = Text::SimpleTable->new( [ 36, 'Regex' ], [ 37, 'Private' ] );
+ my $re = Text::SimpleTable->new( [ 35, 'Regex' ], [ 36, 'Private' ] );
for my $regex ( @{ $self->{compiled} } ) {
my $action = $regex->{action};
$re->row( $regex->{path}, "/$action" );
sub register {
my ( $self, $c, $action ) = @_;
- my $attrs = $action->attributes;
+ my $attrs = $action->attributes;
my @register = @{ $attrs->{'Regex'} || [] };
foreach my $r (@register) {