| line |
true |
false |
branch |
|
25
|
0 |
0 |
if ($host =~ m[^unix://(.+)$]) { } |
|
|
0 |
0 |
elsif ($host =~ m[^tcp://([^:]+):(\d+)$]) { } |
|
32
|
0 |
0 |
unless $sock |
|
43
|
0 |
0 |
unless $sock |
|
61
|
0 |
0 |
defined $version ? : |
|
65
|
0 |
0 |
if ($opts{'raw_body'}) { } |
|
|
0 |
0 |
elsif ($opts{'body'}) { } |
|
73
|
0 |
0 |
if ($opts{'params'}) |
|
77
|
0 |
0 |
unless defined $v |
|
78
|
0 |
0 |
if (ref $v eq "HASH") |
|
83
|
0 |
0 |
if @pairs |
|
93
|
0 |
0 |
if ($body_content) |
|
99
|
0 |
0 |
if $body_content |
|
112
|
0 |
0 |
if ($status_code >= 400) |
|
114
|
0 |
0 |
if ($body and $body =~ /^\s*[\{\[]/) |
|
123
|
0 |
0 |
if ($status_code == 204 or not defined $body or $body eq "") |
|
127
|
0 |
0 |
if ($body =~ /^\s*[\{\[]/) |
|
129
|
0 |
0 |
if defined $result |
|
135
|
0 |
0 |
unless $line =~ /\S/ |
|
137
|
0 |
0 |
if defined $obj |
|
139
|
0 |
0 |
if @objects |
|
149
|
0 |
0 |
unless defined $status_line |
|
157
|
0 |
0 |
if $line eq "" |
|
158
|
0 |
0 |
if ($line =~ /^([^:]+):\s*(.*)$/) |
|
164
|
0 |
0 |
if ($headers{'transfer-encoding'} and $headers{'transfer-encoding'} eq 'chunked') { } |
|
|
0 |
0 |
elsif (defined $headers{'content-length'}) { } |
|
169
|
0 |
0 |
if ($len > 0) |
|
174
|
0 |
0 |
unless $n |
|
194
|
0 |
0 |
unless defined $chunk_header |
|
197
|
0 |
0 |
if $chunk_size == 0 |
|
204
|
0 |
0 |
unless $n |
|
231
|
5 |
6 |
if defined $body |
|
238
|
0 |
0 |
if defined $body |