| 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) |