File Coverage

blib/lib/Package/Subroutine/Sugar.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Package::Subroutine::Sugar;
2             # ***********************************
3 2     2   430174 use strict; use warnings;
  2     2   5  
  2         65  
  2         11  
  2         5  
  2         282  
4             # *************************
5             our $VERSION=v0.02.002;
6             # ***********************
7              
8             ## no critic
9             ; sub import
10             { eval <<'__PERL__'
11             ; package from
12             # ************
13             ; our $VERSION='0.08'
14             ; no warnings 'redefine'
15             ; use Package::Subroutine 'Package::Subroutine'
16             => qw/import export findsubs mixin version/
17             __PERL__
18 2     2   12 }
  2     2   4  
  2     2   104  
  2         1009  
  2         8  
  2         16  
  2         193  
19             ## use critic
20              
21             ; sub unimport
22 1     1   11321 { delete $::{'from::'}
23             }
24              
25             ; 1
26              
27             __END__