File Coverage

lib/Hash/MostUtils/leach/v5_13.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 17 19 89.4


line stmt bran cond sub pod time code
1 10     10   11301 use strict;
  10         22  
  10         446  
2 10     10   59 use warnings;
  10         22  
  10         626  
3             package Hash::MostUtils::leach::v5_13;
4 10     10   58 use base qw(Exporter);
  10         19  
  10         2726  
5              
6             our @EXPORT = qw(leach n_each);
7              
8             require Hash::MostUtils::leach;
9              
10 80     80 0 2452 sub n_each($+) { goto &Hash::MostUtils::leach::_n_each }
11 68     68 0 8991 sub leach(+) { unshift @_, 2; goto &n_each }
  68         122  
12              
13             1;