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

package HTML::Filter;

use strict;

require HTML::Parser;
our @ISA = qw(HTML::Parser);
our $VERSION = '3.81';

sub declaration { $_[0]->output("")     }
sub process     { $_[0]->output($_[2])          }
sub comment     { $_[0]->output("") }
sub start       { $_[0]->output($_[4])          }
sub end         { $_[0]->output($_[2])          }
sub text        { $_[0]->output($_[1])          }

sub output      { print $_[1] }

1;

__END__