NAME
Web::Simple::Role
SYNOPSIS
package MyApp;
use Web::Simple;
with MyApp::Role;
sub dispatch_request { ... }
and in the role:
package MyApp::Role;
use Web::Simple::Role;
around dispatch_request => sub {
my ($orig, $self) = @_;
return (
$self->$orig,
sub (GET + /baz) { ... }
);
};
Now MyApp
can also dispatch /baz
AUTHOR
osfameron@cpan.org