| line |
true |
false |
branch |
|
208
|
0 |
0 |
if ($self->_init) { } |
|
317
|
0 |
0 |
if (defined $attr{'check_proxy'}) { } |
|
325
|
0 |
0 |
if (defined $attr{'check_url'}) { } |
|
333
|
0 |
0 |
if (defined $attr{'proxy'}) { } |
|
|
0 |
0 |
elsif (defined $$self{'proxy'}) { } |
|
335
|
0 |
0 |
unless ($self->_check_proxy($proxy, $check_proxy)) |
|
349
|
0 |
0 |
if (defined $attr{'url'}) { } |
|
|
0 |
0 |
elsif (defined $$self{'url'}) { } |
|
351
|
0 |
0 |
unless ($self->_check_url($url, $check_url)) |
|
365
|
0 |
0 |
if (defined $attr{'answer_size'}) { } |
|
|
0 |
0 |
elsif (defined $$self{'answer_size'}) { } |
|
367
|
0 |
0 |
unless ($self->_check_answer_size($answer_size)) |
|
381
|
0 |
0 |
if (defined $attr{'user_agent'}) { } |
|
|
0 |
0 |
elsif (defined $$self{'user_agent'}) { } |
|
412
|
0 |
0 |
if ($@) |
|
439
|
0 |
0 |
unless (defined $answer and not $answer =~ /^\s*$/) |
|
444
|
0 |
0 |
if ($answer_size eq 'short') { } |
|
|
0 |
0 |
elsif ($answer_size eq 'header') { } |
|
449
|
0 |
0 |
if (not /^\s*
|
|
460
|
0 |
0 |
unless (defined $answer and not $answer =~ /^\s*$/) |
|
504
|
0 |
0 |
unless (defined $$self{'answer'}) |
|
534
|
0 |
0 |
unless (defined $$self{'error'}) |
|
569
|
0 |
0 |
unless (defined $$self{'proxy'}) |
|
616
|
0 |
0 |
unless (defined $proxy) |
|
621
|
0 |
0 |
unless ($self->_check_proxy($proxy, $$self{'check_proxy'})) |
|
691
|
0 |
0 |
unless (defined $check_proxy) |
|
731
|
0 |
0 |
unless (defined $$self{'url'}) |
|
778
|
0 |
0 |
unless (defined $url) |
|
783
|
0 |
0 |
unless ($self->_check_url($url, $$self{'check_url'})) |
|
852
|
0 |
0 |
unless (defined $check_url) |
|
892
|
0 |
0 |
unless (defined $$self{'answer_size'}) |
|
940
|
0 |
0 |
unless (defined $answer_size) |
|
945
|
0 |
0 |
unless ($self->_check_answer_size($answer_size)) |
|
978
|
0 |
0 |
unless (defined $proxy) |
|
982
|
0 |
0 |
if ($check_proxy) |
|
985
|
0 |
0 |
unless ($proxy =~ /^(\S*):(\d{1,5})$/) |
|
995
|
0 |
0 |
unless ('Validate::Net'->host($proxyhost) and 'Validate::Net'->port($proxyport)) |
|
1030
|
0 |
0 |
unless (defined $url) |
|
1034
|
0 |
0 |
if ($check_url) |
|
1037
|
0 |
0 |
unless ($url =~ m[^http://([^:/]+)(?::(\d+))?(?:/.*)?]) |
|
1048
|
0 |
0 |
unless ('Validate::Net'->host($host)) |
|
1053
|
0 |
0 |
if (defined $port) |
|
1054
|
0 |
0 |
unless ('Validate::Net'->port($port)) |
|
1084
|
0 |
0 |
unless (defined $answer_size) |
|
1089
|
0 |
0 |
unless ($answer_size =~ /^short|header|full$/) |
|
1122
|
0 |
0 |
unless (defined $return_code) |
|
1131
|
0 |
0 |
if ($$self{'verbose_errors'}) |
|
1138
|
0 |
0 |
if $$self{'raise_error'} |
|
1139
|
0 |
0 |
if $$self{'print_error'} |
|
1142
|
0 |
0 |
if (wantarray) { } |
|
1170
|
0 |
0 |
unless (defined $my_error) |
|
1200
|
0 |
0 |
unless (defined $my_answer) |
|
1233
|
0 |
0 |
if (defined $default) { } |
|
1234
|
0 |
0 |
unless ($default eq 0) |
|
1243
|
0 |
0 |
if (defined $value) { } |
|
1244
|
0 |
0 |
unless ($value eq 0) |
|
1294
|
0 |
0 |
if (defined $proxy) |
|
1295
|
0 |
0 |
unless ($self->_check_proxy($proxy, $$self{'check_proxy'})) |
|
1302
|
0 |
0 |
if (defined $url) |
|
1303
|
0 |
0 |
unless ($self->_check_url($url, $$self{'check_url'})) |
|
1310
|
0 |
0 |
if (defined $answer_size) { } |
|
1311
|
0 |
0 |
unless ($self->_check_answer_size($answer_size)) |