X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FWeb%2FSimple%2FRole.pm;h=ac2ff817e8b42116bbc71c97d632387455d74c44;hb=4061606f304b183818e175a780c87c5612a5a0ed;hp=b6cd35ff24934322c7591c76b881ae75490b3f04;hpb=01183e70e79f10598e5949180bc876e17251f0ed;p=catagits%2FWeb-Simple.git diff --git a/lib/Web/Simple/Role.pm b/lib/Web/Simple/Role.pm index b6cd35f..ac2ff81 100644 --- a/lib/Web/Simple/Role.pm +++ b/lib/Web/Simple/Role.pm @@ -1,15 +1,32 @@ package Web::Simple::Role; +use strictures 1; +use warnings::illegalproto (); +use Moo::Role (); + +our $VERSION = '0.028'; + +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 +44,12 @@ and in the role: Now C can also dispatch C -=cut - -use strictures 1; -use 5.008; -use warnings::illegalproto (); -use Moo::Role (); - -our $VERSION = '0.020'; +=head1 AUTHORS -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;