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   20132 use strictures 1;
  1         1504  
  1         45  
3 1     1   721 use warnings::illegalproto ();
  1         323  
  1         17  
4 1     1   660 use Moo::Role ();
  1         21054  
  1         106  
5              
6             our $VERSION = '0.031';
7              
8             sub import {
9 1     1   9 my ($class, $app_package) = @_;
10 1   33     8 $app_package ||= caller;
11 1 50   1   8276 eval "package $app_package; use Web::Dispatch::Wrapper; use Moo::Role; 1"
  1     1   2  
  1         63  
  1         8  
  1         1  
  1         7  
  1         6745  
12             or die "Failed to setup app package: $@";
13 1         9 strictures->import;
14 1         191 warnings::illegalproto->unimport;
15             }
16              
17             1;
18             __END__