File Coverage

blib/lib/HTML/DOM/_FieldHash.pm
Criterion Covered Total %
statement 3 6 50.0
branch 1 2 50.0
condition n/a
subroutine 1 1 100.0
pod n/a
total 5 9 55.5


line stmt bran cond sub pod time code
1             package HTML::DOM::_FieldHash;
2              
3             our $VERSION = '0.058';
4              
5             BEGIN {
6 28 50   28   105 if(eval { require Hash::Util::FieldHash }) {
  28         11960  
7 28         21459 import Hash::Util::FieldHash qw < fieldhashes >;
8             } else {
9 0           require Tie::RefHash::Weak;
10 0           VERSION Tie::RefHash::Weak 0.08; # fieldhashes
11 0           import Tie::RefHash::Weak qw < fieldhashes >;
12             }
13             }
14              
15             @ISA = Exporter;
16             @EXPORT = 'fieldhashes';
17             require Exporter;