| line |
true |
false |
branch |
|
325
|
4 |
77 |
if ($code eq $key) |
|
330
|
0 |
14 |
if $$self{'verbose'} |
|
334
|
0 |
14 |
unless $code =~ /[1-9][0-9]+/ |
|
338
|
0 |
14 |
unless ref $response |
|
367
|
0 |
8 |
if ($WWW::Link::Tester::Complex::DEBUG) |
|
369
|
0 |
8 |
if ($inputStr =~ / #"
]+? url
\s* = \s* ["']? ([^"' >]+) ["']? [^>]+? >
/xi) { } |
|
404
|
0 |
30 |
unless $url |
|
407
|
0 |
30 |
if ($VERBOSE or $WWW::Link::Tester::Complex::DEBUG) |
|
413
|
16 |
14 |
if ($referrer) |
|
414
|
1 |
29 |
if (keys %WWW::Link::Tester::Complex::url_hash > $WWW::Link::Tester::Complex::MAX_REDIRECTS) |
|
415
|
0 |
1 |
if ($VERBOSE) |
|
421
|
3 |
26 |
if (not $1 && $2) { } |
|
422
|
0 |
3 |
if ($VERBOSE) |
|
430
|
26 |
0 |
if ($1) |
|
433
|
0 |
26 |
if ($protocol =~ /^telnet$/i) |
|
434
|
0 |
0 |
if ($port) { } |
|
441
|
0 |
0 |
if (not $ping) { } |
|
446
|
0 |
26 |
unless ($agent->is_protocol_supported($protocol)) |
|
447
|
0 |
0 |
if ($VERBOSE) |
|
455
|
0 |
26 |
if ($WWW::Link::Tester::Complex::DEBUG) |
|
462
|
0 |
26 |
if ($@) |
|
463
|
0 |
0 |
if ($VERBOSE) |
|
464
|
0 |
0 |
if ($WWW::Link::Tester::Complex::LOGGING) |
|
467
|
0 |
26 |
if ($WWW::Link::Tester::Complex::DEBUG) |
|
468
|
0 |
26 |
if ($WWW::Link::Tester::Complex::DEBUG) |
|
471
|
8 |
18 |
if ($statusCode =~ /2../) { } |
|
|
16 |
2 |
elsif ($statusCode =~ /3../) { } |
|
|
2 |
0 |
elsif ($statusCode =~ /4../) { } |
|
|
0 |
0 |
elsif ($statusCode =~ /5../) { } |
|
472
|
0 |
8 |
if ($VERBOSE) |
|
474
|
0 |
8 |
if ($new_url ne '') { } |
|
475
|
0 |
0 |
if (exists $WWW::Link::Tester::Complex::url_hash{$new_url}) { } |
|
476
|
0 |
0 |
if ($VERBOSE) |
|
479
|
0 |
0 |
if ($VERBOSE) |
|
487
|
0 |
16 |
if ($VERBOSE) |
|
493
|
0 |
16 |
if ($VERBOSE) |
|
497
|
0 |
2 |
if ($VERBOSE) |
|
501
|
0 |
0 |
if ($VERBOSE) |
|
510
|
0 |
0 |
if ($protocol =~ /^http$/i) |
|
513
|
0 |
0 |
if ($telnetResult ne 'FAIL') |
|
533
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE or $WWW::Link::Tester::Complex::DEBUG) |
|
538
|
0 |
0 |
if ($WWW::Link::Tester::Complex::DEBUG) |
|
539
|
0 |
0 |
if $line =~ /^\s$/ |
|
540
|
0 |
0 |
if ($line =~ /^Location: \s* (\S+)/x) |
|
541
|
0 |
0 |
if ($WWW::Link::Tester::Complex::DEBUG) |
|
558
|
0 |
16 |
if ($WWW::Link::Tester::Complex::DEBUG) |
|
562
|
16 |
0 |
if ($new_url =~ m[^[a-z]+://]i) |
|
566
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE) |
|
569
|
0 |
0 |
if ($new_url =~ m[^/]) { } |
|
|
0 |
0 |
elsif ($old_url =~ m[ (\w+://\S+/) ]x) { } |
|
571
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE) |
|
578
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE) |
|
583
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE) |
|
604
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE or $WWW::Link::Tester::Complex::DEBUG) |
|
610
|
0 |
0 |
unless open LOGFILE, "+>$WWW::Link::Tester::Complex::TELNET_LOGFILE" |
|
611
|
0 |
0 |
unless ($port and $port =~ /^\d+$/) |
|
620
|
0 |
0 |
unless $telnetAgent |
|
629
|
0 |
0 |
if ($telnetAgent->timed_out) |
|
630
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE) |
|
637
|
0 |
0 |
unless close LOGFILE |
|
639
|
0 |
0 |
unless (@lines) |
|
640
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE) |
|
645
|
0 |
0 |
if ($WWW::Link::Tester::Complex::DEBUG) |
|
651
|
0 |
0 |
if ($statusLine =~ m[^(HTTP/\d+\.\d+)[ \t]+(\d+)[ \t]*([^\012]*)\012]) { } |
|
655
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE) |
|
659
|
0 |
0 |
if ($statusCode =~ /2../) { } |
|
|
0 |
0 |
elsif ($statusCode =~ /3../) { } |
|
|
0 |
0 |
elsif ($statusCode =~ /4.. | 5../x) { } |
|
664
|
0 |
0 |
if ($new_url ne '') { } |
|
665
|
0 |
0 |
if (exists $WWW::Link::Tester::Complex::url_hash{$new_url}) { } |
|
666
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE) |
|
671
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE) |
|
681
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE) |
|
685
|
0 |
0 |
if ($new_url ne '') { } |
|
686
|
0 |
0 |
if (exists $WWW::Link::Tester::Complex::url_hash{$new_url}) { } |
|
687
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE) |
|
692
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE) |
|
711
|
0 |
0 |
if ($WWW::Link::Tester::Complex::VERBOSE) |
|
717
|
0 |
0 |
if ($contentStr =~ /
|