| line |
true |
false |
branch |
|
57
|
0 |
4 |
unless defined $class |
|
58
|
0 |
4 |
unless defined $input |
|
67
|
4 |
0 |
ref $_[0] eq 'HASH' ? : |
|
68
|
0 |
4 |
unless scalar keys %args |
|
77
|
0 |
4 |
unless my $p = 'HTML::TokeParser'->new($$self{'INPUT'}) |
|
85
|
6 |
20 |
if (@$token[0] eq 'T' and not @{$$self{'skipto'};}) |
|
93
|
4 |
2 |
if (@$token[1] =~ /\Q$key\E/gs) |
|
95
|
3 |
1 |
if (ref $$self{'HREFS'}{$key}) { } |
|
101
|
3 |
1 |
$title ? : |
|
110
|
8 |
18 |
if (@$token[0] eq 'S') { } |
|
|
7 |
11 |
elsif (@$token[0] eq 'E') { } |
|
113
|
7 |
1 |
if (exists $$SKIP{@$token[1]}) |
|
119
|
7 |
0 |
if (@{$$self{'skipto'};} and @$token[1] eq $$self{'skipto'}[0]) |
|
153
|
0 |
0 |
unless defined $filename |
|
155
|
0 |
0 |
unless open OUT, ">$filename" |