| line |
true |
false |
branch |
|
85
|
2 |
3 |
if defined $cb |
|
86
|
3 |
2 |
if defined $base |
|
94
|
11 |
6 |
unless defined $on |
|
95
|
5 |
1 |
$on ? : |
|
104
|
0 |
5 |
unless ($tp) |
|
135
|
15 |
36 |
if ($$T[0] eq 'S') { } |
|
|
26 |
10 |
elsif ($$T[0] eq 'T') { } |
|
|
1 |
9 |
elsif ($$T[0] eq 'D') { } |
|
|
9 |
0 |
elsif ($$T[0] eq 'E') { } |
|
136
|
1 |
14 |
unless exists $HTML::LinkExtractor::TAGS{$Tag} |
|
143
|
13 |
1 |
if (defined $HTML::LinkExtractor::TAGS{$Tag}) { } |
|
|
1 |
0 |
elsif ($Tag eq 'meta') { } |
|
147
|
13 |
12 |
if (exists $$T[2]{$Btag}) |
|
151
|
9 |
4 |
if ($got_TAGS_IN_NEED) |
|
160
|
1 |
0 |
if (defined $$NL{'content'} and length $$NL{'content'} and defined $$NL{'http-equiv'} && $$NL{'http-equiv'} =~ /refresh/i || defined $$NL{'name'} && $$NL{'name'} =~ /refresh/i) |
|
168
|
0 |
1 |
if $base |
|
169
|
1 |
0 |
unless exists $$NL{'url'} |
|
170
|
1 |
0 |
if $timeout |
|
175
|
12 |
2 |
if (@TEXT) |
|
181
|
9 |
17 |
if @TEXT |
|
186
|
1 |
0 |
if ($text =~ / SYSTEM \s \" ( [^\"]* ) \" > $ /xi) |
|
193
|
9 |
0 |
if (@TEXT and exists $HTML::LinkExtractor::TAGS{$Tag}) |
|
196
|
1 |
8 |
if @TEXT |
|
197
|
4 |
5 |
if $self->strip |
|
198
|
2 |
7 |
if exists $$self{'_cb'} |
|
202
|
15 |
35 |
if (defined $NL) |
|
208
|
13 |
227 |
if (exists $$NL{$at}) |
|
209
|
5 |
8 |
if $base |
|
213
|
3 |
12 |
if (exists $$self{'_cb'}) { } |
|
214
|
1 |
2 |
unless $got_TAGS_IN_NEED and @TEXT |
|
237
|
4 |
0 |
if ($$t[0] eq 'S') { } |
|
254
|
1 |
0 |
unless (caller()) |
|
256
|
0 |
1 |
if (@ARGV) { } |
|
258
|
0 |
0 |
if (-e $file) { } |