File Coverage

blib/lib/Web/Simple/Role.pm
Criterion Covered Total %
statement 20 20 100.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 6 6 100.0
pod n/a
total 28 31 90.3


line stmt bran cond sub pod time code
1             package Web::Simple::Role;
2 1     1   15130 use strictures 1;
  1         1233  
  1         35  
3 1     1   496 use warnings::illegalproto ();
  1         300  
  1         15  
4 1     1   369 use Moo::Role ();
  1         15931  
  1         93  
5              
6             our $VERSION = '0.033';
7              
8             sub import {
9 1     1   8 my ($class, $app_package) = @_;
10 1   33     8 $app_package ||= caller;
11 1 50   1   336 eval "package $app_package; use Web::Dispatch::Wrapper; use Moo::Role; 1"
  1     1   3  
  1         58  
  1         6  
  1         1  
  1         5  
  1         54  
12             or die "Failed to setup app package: $@";
13 1         8 strictures->import;
14 1         148 warnings::illegalproto->unimport;
15             }
16              
17             1;
18             __END__