1 package Web::Simple::Role;
3 use warnings::illegalproto ();
6 our $VERSION = '0.031';
9 my ($class, $app_package) = @_;
10 $app_package ||= caller;
11 eval "package $app_package; use Web::Dispatch::Wrapper; use Moo::Role; 1"
12 or die "Failed to setup app package: $@";
14 warnings::illegalproto->unimport;
22 Web::Simple::Role - Define roles for Web::Simple applications
30 sub dispatch_request { ... }
35 use Web::Simple::Role;
37 around dispatch_request => sub {
38 my ($orig, $self) = @_;
41 sub (GET + /baz) { ... }
45 Now C<MyApp> can also dispatch C</baz>
49 See L<Web::Simple> for authors.
51 =head1 COPYRIGHT AND LICENSE
53 See L<Web::Simple> for the copyright and license.