File Coverage

blib/lib/HTML/Manipulator.pm
Criterion Covered Total %
statement 460 474 97.0
branch 152 182 83.5
condition 67 95 70.5
subroutine 55 55 100.0
pod 0 15 0.0
total 734 821 89.4


line stmt bran cond sub pod time code
1 2     2   21896 use strict;
  2         4  
  2         3205  
2              
3             package HTML::Manipulator;
4              
5             our $VERSION = '0.07';
6              
7             sub replace {
8 9     9 0 10521 my ( $html, %data ) = @_;
9              
10             # make comment "id" insensitive
11 9         32 my @keys = keys %data;
12 9         61 foreach (@keys) {
13 13         17 my $old = $_;
14 13 100       53 if (/^