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   36133 use 5.008005;
  2         10  
  2         92  
3 2     2   12 use strict;
  2         3  
  2         75  
4 2     2   20 use warnings;
  2         2  
  2         64  
5 2     2   1779 use HTML::HeadParser;
  2         19433  
  2         67  
6 2     2   20 use B::Deparse;
  2         4  
  2         201  
7              
8             our $VERSION = "0.01";
9              
10             BEGIN {
11 2     2   55374 my $code = "sub " . B::Deparse->new->coderef2text(\&HTML::HeadParser::start);
12 2         41 $code =~ s/(if \(\$\$attr{'name'}\) {)/$1 \$attr->{name} =~ s\/:\/_\/g;/gsm;
13              
14 2     2   12 no warnings 'redefine';
  2         5  
  2         109  
15 2 50 33 2   277 *HTML::HeadParser::start = eval $code;
  2 50 0 2   19  
  2 50 33     6  
  2 0       1258  
  2 50       268  
  2 0       6  
  2 0       7  
  2 0       18  
  1 100       3  
  1 50       5  
  1 50       3  
  1 50       6  
  1 50       4  
  0 50       0  
  0         0  
  0         0  
  0         0  
  1         2  
  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         9  
  0            
16             }
17              
18             1;
19             __END__