File Coverage

blib/lib/HTML/Filter.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 6 7 85.7
total 24 25 96.0


line stmt bran cond sub pod time code
1             package HTML::Filter;
2              
3 1     1   487 use strict;
  1         7  
  1         263  
4              
5             require HTML::Parser;
6             our @ISA = qw(HTML::Parser);
7             our $VERSION = '3.80';
8              
9 2     2 1 11 sub declaration { $_[0]->output("") }
10 2     2 1 15 sub process { $_[0]->output($_[2]) }
11 1     1 1 5 sub comment { $_[0]->output("") }
12 14     14 1 69 sub start { $_[0]->output($_[4]) }
13 4     4 1 20 sub end { $_[0]->output($_[2]) }
14 22     22 1 106 sub text { $_[0]->output($_[1]) }
15              
16 23     23 0 126 sub output { print $_[1] }
17              
18             1;
19              
20             __END__