| line |
true |
false |
branch |
|
16
|
4 |
12 |
if (ref $_[0] eq 'HASH') |
|
21
|
11 |
5 |
if (ref $output eq 'SCALAR') { } |
|
26
|
0 |
5 |
unless open my $tmp, '<&=:perlio:raw', fileno $output |
|
34
|
16 |
33 |
if $headers =~ /\x0d?\x0a\x0d?\x0a$/ |
|
36
|
0 |
16 |
unless (defined $headers) |
|
40
|
10 |
6 |
unless ($headers =~ /^HTTP/) |
|
47
|
1 |
15 |
if ($response->header('Location') and not $response->header('Status')) |
|
52
|
2 |
14 |
$options->{'ignore_status_line'} ? : |
|
55
|
6 |
10 |
if ($status_header) |
|
67
|
0 |
16 |
if ($response->code == 500 and not $remaining) |
|
84
|
13 |
3 |
if ($length and not $response->content_length) |