|
NAMEWeb::Simple::Role - Define roles for Web::Simple applications 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" AUTHORSSee Web::Simple for authors. COPYRIGHT AND LICENSESee Web::Simple for the copyright and license.
|