File Coverage

blib/lib/JE/_FieldHash.pm
Criterion Covered Total %
statement 13 15 86.6
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 18 21 85.7


line stmt bran cond sub pod time code
1             package JE::_FieldHash;
2              
3             our $VERSION = '0.064';
4              
5              
6 99     99   16654 use strict;
  99         147  
  99         3178  
7 99     99   408 use warnings;
  99         196  
  99         6168  
8              
9             BEGIN {
10 99     99   151 eval { require Hash::Util::FieldHash;
  99         25961  
11 99         104455 import Hash::Util::FieldHash 'fieldhash'; };
12 99 50       2933 if ($@) {
13 0         0 require Tie::RefHash::Weak;
14 0         0 eval 'sub fieldhash(\%) {
15             tie %{$_[0]}, "Tie::RefHash::Weak";
16             $_[0];
17             }';
18             }
19             }
20              
21 99     99   541 use Exporter 5.57 'import';
  99         1451  
  99         3913  
22              
23             our @EXPORT = 'fieldhash'; # this returns a veracious value
24              
25             __END__