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   101482 ; use strict; use warnings
  2         6  
  2         74  
4             # ************************
5 2     2   12 ; our $VERSION='0.02'
  2         5  
  2         277  
6             # *******************
7              
8             ; sub import
9             { eval <<'__PERL__'
10             ; package from
11             # ************
12             ; our $VERSION='0.08'
13             ; no warnings 'redefine'
14             ; use Package::Subroutine 'Package::Subroutine'
15             => qw/import export findsubs mixin version/
16             __PERL__
17 2     2   12 }
  2     2   3  
  2     2   86  
  2         1116  
  2         7  
  2         13  
  2         176  
18              
19             ; sub unimport
20 1     1   6571 { delete $::{'from::'}
21             }
22              
23             ; 1
24              
25             __END__