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.065';
4              
5              
6 99     99   17223 use strict;
  99         151  
  99         3253  
7 99     99   426 use warnings;
  99         114  
  99         6169  
8              
9             BEGIN {
10 99     99   152 eval { require Hash::Util::FieldHash;
  99         27094  
11 99         109483 import Hash::Util::FieldHash 'fieldhash'; };
12 99 50       3058 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   589 use Exporter 5.57 'import';
  99         1370  
  99         4149  
22              
23             our @EXPORT = 'fieldhash'; # this returns a veracious value
24              
25             __END__