1 package Web::Simple::Role;
4 use warnings::illegalproto ();
7 our $VERSION = '0.020';
10 my ($class, $app_package) = @_;
11 $app_package ||= caller;
12 eval "package $app_package; use Web::Dispatch::Wrapper; use Moo::Role; 1"
13 or die "Failed to setup app package: $@";
15 warnings::illegalproto->unimport;
23 Web::Simple::Role - Define roles for Web::Simple applications
31 sub dispatch_request { ... }
36 use Web::Simple::Role;
38 around dispatch_request => sub {
39 my ($orig, $self) = @_;
42 sub (GET + /baz) { ... }
46 Now C<MyApp> can also dispatch C</baz>
50 See L<Web::Simple> for authors.
52 =head1 COPYRIGHT AND LICENSE
54 See L<Web::Simple> for the copyright and license.