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   28813 use strictures 1;
  1         2461  
  1         64  
3 1     1   921 use warnings::illegalproto ();
  1         555  
  1         31  
4 1     1   766 use Moo::Role ();
  1         29706  
  1         223  
5              
6             our $VERSION = '0.032';
7              
8             sub import {
9 1     1   15 my ($class, $app_package) = @_;
10 1   33     12 $app_package ||= caller;
11 1 50   1   679 eval "package $app_package; use Web::Dispatch::Wrapper; use Moo::Role; 1"
  1     1   17  
  1         104  
  1         10  
  1         2  
  1         11  
  1         100  
12             or die "Failed to setup app package: $@";
13 1         11 strictures->import;
14 1         270 warnings::illegalproto->unimport;
15             }
16              
17             1;
18             __END__