| line |
true |
false |
branch |
|
159
|
0 |
0 |
if $CHAT |
|
160
|
0 |
0 |
unless (defined $class) |
|
167
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
|
0 |
0 |
elsif (not ref $_[0]) { } |
|
190
|
0 |
0 |
if $CHAT |
|
194
|
0 |
0 |
unless (exists $$self{'dir'} and defined $$self{'dir'}) |
|
197
|
0 |
0 |
unless (-d $$self{'dir'}) |
|
200
|
0 |
0 |
unless (exists $$self{'todo'}) |
|
205
|
0 |
0 |
if (exists $$self{'chat'} and defined $$self{'chat'}) { } |
|
211
|
0 |
0 |
if (exists $$self{'match_url'} and not ref $$self{'match_url'}) |
|
214
|
0 |
0 |
if (exists $$self{'todo'} and not ref $$self{'todo'}) |
|
217
|
0 |
0 |
if (exists $$self{'dont'} and not ref $$self{'dont'}) |
|
223
|
0 |
0 |
if ($$self{'dont'}) |
|
237
|
0 |
0 |
if $CHAT |
|
240
|
0 |
0 |
if (exists $$self{'match_url'}) |
|
242
|
0 |
0 |
if (not $doc_url =~ /^$_/) { } |
|
243
|
0 |
0 |
if $CHAT |
|
247
|
0 |
0 |
if $CHAT |
|
252
|
0 |
0 |
if (exists $$self{'FAILED'}{$doc_url} or exists $$self{'DONE'}{$doc_url}) |
|
253
|
0 |
0 |
if $CHAT |
|
258
|
0 |
0 |
if (exists $$self{'dont'}{$doc_url}) |
|
259
|
0 |
0 |
if $CHAT |
|
264
|
0 |
0 |
if (exists $$self{'dont'}{'ALL'} and not $$self{'todo'}{$doc_url}) |
|
265
|
0 |
0 |
if $CHAT |
|
271
|
0 |
0 |
unless (exists $$self{'todo'}{$doc_url} or $doc_url =~ /(\.$$self{'ext_ok'})$/i or exists $$self{'dont'}{'NONE'}) |
|
273
|
0 |
0 |
if $CHAT |
|
279
|
0 |
0 |
unless ($doc = $self->get_document($doc_url)) |
|
280
|
0 |
0 |
if $CHAT |
|
287
|
0 |
0 |
if ($doc_url =~ /(\.$$self{'ext_ok'})$/i) { } |
|
289
|
0 |
0 |
if $CHAT |
|
298
|
0 |
0 |
unless ($p = 'HTML::TokeParser'->new(\$doc)) |
|
299
|
0 |
0 |
if $CHAT |
|
304
|
0 |
0 |
if $CHAT |
|
308
|
0 |
0 |
if (@$token[1] eq 'img' and exists @$token[2]->{'src'}) { } |
|
|
0 |
0 |
elsif (@$token[1] =~ /^(area|a)$/ and exists @$token[2]->{'href'} and @$token[0] eq 'S') { } |
|
|
0 |
0 |
elsif (@$token[1] eq 'frame' and exists @$token[2]->{'src'}) { } |
|
309
|
0 |
0 |
if $CHAT |
|
311
|
0 |
0 |
if ($uri and not exists $$self{'IGNORE0'}{$uri} and not exists $$self{'DONE'}{$uri} and not exists $$self{'FAILED'}{$uri}) { } |
|
315
|
0 |
0 |
if $CHAT |
|
319
|
0 |
0 |
if $CHAT |
|
321
|
0 |
0 |
if ($uri and not exists $$self{'dont'}{$uri} and not exists $$self{'DONE'}{$uri} and not exists $$self{'FAILED'}{$uri} and not exists $$self{'dont'}{'ALL'} && !exists($$self{'todo'}{$uri})) { } |
|
326
|
0 |
0 |
if $CHAT |
|
330
|
0 |
0 |
if $CHAT |
|
332
|
0 |
0 |
if ($uri and not exists $$self{'IGNORE0'}{$uri} and not exists $$self{'DONE'}{$uri} and not exists $$self{'FAILED'}{$uri} and not exists $$self{'dont'}{'ALL'} && !exists($$self{'todo'}{$uri})) { } |
|
336
|
0 |
0 |
if $CHAT |
|
356
|
0 |
0 |
if ($url =~ /(\.$$self{'ext_bad'})$/i) |
|
357
|
0 |
0 |
if $CHAT |
|
363
|
0 |
0 |
if ($attempt != 1 and $attempt - 1 == $$self{'max_attempts'}) { } |
|
368
|
0 |
0 |
if $CHAT |
|
370
|
0 |
0 |
unless defined $req |
|
372
|
0 |
0 |
if $res->is_success |
|
374
|
0 |
0 |
unless (defined $req) |
|
375
|
0 |
0 |
if $CHAT |
|
378
|
0 |
0 |
unless ($res->is_success) |
|
379
|
0 |
0 |
if $CHAT |
|
383
|
0 |
0 |
if $CHAT |
|
385
|
0 |
0 |
if (exists $$self{'max_size'} || exists $$self{'min_size'} and $url =~ /(\.$$self{'ext_ok'})$/i) |
|
388
|
0 |
0 |
if (defined $_ and $$self{'min_size'} and $_ < $$self{'min_size'}) { } |
|
|
0 |
0 |
elsif (defined $_ and $$self{'max_size'} and $_ > $$self{'max_size'}) { } |
|
389
|
0 |
0 |
if $CHAT |
|
394
|
0 |
0 |
if $CHAT |
|
415
|
0 |
0 |
if (exists $$self{'DONE'}{$url} or exists $$self{'FAILED'}{$url}) |
|
416
|
0 |
0 |
if $CHAT |
|
420
|
0 |
0 |
if ($$self{'rename'}) { } |
|
|
0 |
0 |
elsif ($$self{'rename'} == 2) { } |
|
429
|
0 |
0 |
if $CHAT |
|
430
|
0 |
0 |
unless open OUT, ">$filename" |
|
434
|
0 |
0 |
if $CHAT |
|
446
|
0 |
0 |
if ($child_url =~ /^#/) |
|
450
|
0 |
0 |
if ($child_url =~ m[^/]) |
|
454
|
0 |
0 |
if ($child_url =~ m[^\.\.\/]i) { } |
|
|
0 |
0 |
elsif (not $child_url =~ m[^http://]i) { } |
|
456
|
0 |
0 |
if ($parent_url =~ m[/$]) |
|
457
|
0 |
0 |
if ($child_url =~ m[^\./]) |
|
465
|
0 |
0 |
if ($parent_url =~ m[/$]) |
|
480
|
0 |
0 |
unless $_ =~ /$$self{'ext_ok'}/ |
|
495
|
0 |
0 |
unless $_ =~ /$$self{'ext_ok'}/ |