| line |
true |
false |
branch |
|
40
|
0 |
0 |
unless $url =~ m[^http://([\w\.]+)(?::(\d+))?(?:(/.*))?$] |
|
62
|
0 |
0 |
if ($url) |
|
63
|
0 |
0 |
unless ($url_host, $url_port, $url_path) = _parse_url $url |
|
70
|
0 |
0 |
if ($use_proxy and not $proxy_host and defined $ENV{'http_proxy'}) |
|
71
|
0 |
0 |
unless ($proxy_host, $proxy_port) = _parse_url($ENV{'http_proxy'}) |
|
81
|
0 |
0 |
if $args{'nocache'} |
|
83
|
0 |
0 |
$url_port ? : |
|
86
|
0 |
0 |
if $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cB") ne "\000" |
|
89
|
0 |
0 |
$use_proxy ? : |
|
90
|
0 |
0 |
$use_proxy ? : |
|
91
|
0 |
0 |
unless (my $iaddr = inet_aton($host)) |
|
102
|
0 |
0 |
if socket SOCK, 2, 1, $proto |
|
104
|
0 |
0 |
unless (eval {
do {
connect SOCK, $paddr if socket SOCK, 2, 1, $proto
}
}) |
|
117
|
0 |
0 |
$use_proxy ? : |
|
119
|
0 |
0 |
if $ENV{'DEBUG_MESSAGES'} |
|
126
|
0 |
0 |
unless ($line =~ m[^HTTP/1\.\d (\d+) (\w.*?)$endl2$]) |
|
135
|
0 |
0 |
if $ENV{'DEBUG_MESSAGES'} |
|
142
|
0 |
0 |
/^([\w-]+):\s*(.*)$/ ? : |
|
144
|
0 |
0 |
if $unparsed |
|
148
|
0 |
0 |
if ($rc == 301 or $rc == 302) |
|
149
|
0 |
0 |
if $args{'noredirect'} |
|
152
|
0 |
0 |
unless (++$redirect_depth < $max_redirect_depth) |
|
157
|
0 |
0 |
unless ($new_url) |
|
161
|
0 |
0 |
unless (($url_host, $url_port, $url_path) = _parse_url $new_url) |
|
167
|
0 |
0 |
unless ($rc == 200) |
|
190
|
0 |
0 |
unless $error |
|
205
|
0 |
0 |
if $method eq 'DESTROY' |
|
207
|
0 |
0 |
unless exists $$self{$method} |