From: Graham Knop Date: Sat, 24 May 2014 16:14:10 +0000 (-0400) Subject: clean up Web::Simple::Role pod X-Git-Tag: v0.024~7 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FWeb-Simple.git;a=commitdiff_plain;h=1d1a78c8f3a5d16fdd2812cb875de3e76a4fa326 clean up Web::Simple::Role pod --- diff --git a/lib/Web/Simple/Role.pm b/lib/Web/Simple/Role.pm index b6cd35f..036faf9 100644 --- a/lib/Web/Simple/Role.pm +++ b/lib/Web/Simple/Role.pm @@ -1,15 +1,33 @@ package Web::Simple::Role; +use strictures 1; +use 5.008; +use warnings::illegalproto (); +use Moo::Role (); + +our $VERSION = '0.020'; + +sub import { + my ($class, $app_package) = @_; + $app_package ||= caller; + eval "package $app_package; use Web::Dispatch::Wrapper; use Moo::Role; 1" + or die "Failed to setup app package: $@"; + strictures->import; + warnings::illegalproto->unimport; +} + +1; +__END__ =head1 NAME -Web::Simple::Role +Web::Simple::Role - Define roles for Web::Simple applications =head1 SYNOPSIS package MyApp; use Web::Simple; with MyApp::Role; - + sub dispatch_request { ... } and in the role: @@ -27,28 +45,12 @@ and in the role: Now C can also dispatch C -=cut +=head1 AUTHORS -use strictures 1; -use 5.008; -use warnings::illegalproto (); -use Moo::Role (); - -our $VERSION = '0.020'; - -sub import { - my ($class, $app_package) = @_; - $app_package ||= caller; - eval "package $app_package; use Web::Dispatch::Wrapper; use Moo::Role; 1" - or die "Failed to setup app package: $@"; - strictures->import; - warnings::illegalproto->unimport; -} +See L for authors. -=head1 AUTHOR +=head1 COPYRIGHT AND LICENSE -osfameron@cpan.org +See L for the copyright and license. =cut - -1;