Branch Coverage

blib/lib/PerlIO/via/StripHTML.pm
Criterion Covered Total %
branch 9 12 75.0


line true false branch
12 0 1 if $mode ne 'r'
23 2 7 if $_[0] =~ /^[bt]r$/
24 0 9 if $_[0] eq 'p'
35 16 1 unless $inside{'script'} or $inside{'style'}
46 1 1 unless defined $line
48 0 1 unless $$self{'parser'}->parse($line)