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.066';
4              
5              
6 100     100   18888 use strict;
  100         152  
  100         3570  
7 100     100   449 use warnings;
  100         137  
  100         7106  
8              
9             BEGIN {
10 100     100   167 eval { require Hash::Util::FieldHash;
  100         30366  
11 100         130367 import Hash::Util::FieldHash 'fieldhash'; };
12 100 50       3386 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 100     100   693 use Exporter 5.57 'import';
  100         1540  
  100         4530  
22              
23             our @EXPORT = 'fieldhash'; # this returns a veracious value
24              
25             __END__