use base qw/Catalyst::Controller;
sub foo : Local {
- my ($self,$c,@args) = @_;
- ...
+ my ($self,$c,@args) = @_;
+ ...
} # Dispatches to /search/foo
=head1 DESCRIPTION
return ( 'ActionClass', $value );
}
-sub _parse_PathPrefix_attr {
- my ( $self, $c, $name, $value ) = @_;
- return PathPart => $self->path_prefix;
-}
-
1;
__END__