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 11     11   5630 use strict;
  11         17  
  11         378  
2 11     11   45 use warnings;
  11         14  
  11         443  
3             package
4             Hash::MostUtils::leach::v5_13; # don't index me, please
5 11     11   43 use base qw(Exporter);
  11         13  
  11         1831  
6              
7             our @EXPORT = qw(leach n_each);
8              
9             require Hash::MostUtils::leach;
10              
11 874     874 0 3373 sub n_each($+) { goto &Hash::MostUtils::leach::_n_each }
12 862     862 0 22847 sub leach(+) { unshift @_, 2; goto &n_each }
  862         932  
13              
14             1;