File Coverage

blib/lib/HTML/HeadParser/Liberal.pm
Criterion Covered Total %
statement 36 57 63.1
branch 11 28 39.2
condition 2 8 25.0
subroutine 9 9 100.0
pod n/a
total 58 102 56.8


line stmt bran cond sub pod time code
1             package HTML::HeadParser::Liberal;
2 2     2   1166047 use 5.008005;
  2         5  
  2         65  
3 2     2   10 use strict;
  2         2  
  2         61  
4 2     2   15 use warnings;
  2         3  
  2         52  
5 2     2   1176 use HTML::HeadParser;
  2         27410  
  2         52  
6 2     2   15 use B::Deparse;
  2         3  
  2         151  
7              
8             our $VERSION = "0.02";
9              
10             BEGIN {
11 2     2   41317 my $code = "sub " . B::Deparse->new->coderef2text(\&HTML::HeadParser::start);
12 2         35 $code =~ s/(if \(\$\$attr{'name'}\) {)/$1 \$attr->{name} =~ s\/:\/_\/g;/gsm;
13              
14 2     2   9 no warnings 'redefine';
  2         3  
  2         110  
15 2 50 33 2   212 *HTML::HeadParser::start = eval $code;
  2 50 0 2   17  
  2 50 33     2  
  2 0       906  
  2 50       220  
  2 0       5  
  2 0       5  
  2 0       17  
  1 100       3  
  1 50       4  
  1 50       4  
  1 50       5  
  1 50       6  
  0 50       0  
  0         0  
  0         0  
  0         0  
  1         3  
  1         6  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  1         7  
  0            
16             }
17              
18             1;
19             __END__