line |
true |
false |
branch |
92
|
170 |
5 |
unless (ref $node eq "HASH") |
93
|
2 |
168 |
if Net::IP::ip_is_ipv6($node) |
94
|
124 |
46 |
unless ($node =~ m[^http(s)?://]) |
95
|
1 |
123 |
$params->{'use_https'} ? : |
97
|
3 |
167 |
if ($params->{'port'} and not $node =~ m(//[^/\[]+:\d+)) |
122
|
175 |
0 |
unless $params->{'default_headers'} |
124
|
3 |
172 |
if ($userinfo) |
131
|
0 |
175 |
if ($params->{'gzip'}) { } |
|
1 |
174 |
elsif ($params->{'deflate'}) { } |
147
|
6 |
169 |
if Net::IP::ip_is_ipv6($host) |
250
|
3 |
2 |
unless $params->{'qs'} |
278
|
0 |
0 |
if ($self->gzip) { } |
|
0 |
0 |
elsif ($self->deflate) { } |
279
|
0 |
0 |
unless IO::Compress::Gzip::gzip(\$params->{'data'}, \$output) |
286
|
0 |
0 |
unless IO::Compress::Deflate::deflate(\$params->{'data'}, \$output) |
298
|
0 |
238 |
if (my $encoding = $headers->{'content-encoding'}) |
300
|
0 |
0 |
if ($encoding eq 'gzip') { } |
|
0 |
0 |
elsif ($encoding eq 'deflate') { } |
301
|
0 |
0 |
unless IO::Uncompress::Gunzip::gunzip($body_ref, \$output) |
308
|
0 |
0 |
unless IO::Uncompress::Inflate::inflate($body_ref, \$output, "Transparent", 0) |
333
|
0 |
238 |
if (my $warnings = $headers->{'warning'}) |
342
|
176 |
62 |
if ($code >= 200 and $code <= 209) |
343
|
141 |
35 |
if (defined $body and length $body) |
344
|
140 |
1 |
if $is_encoded |
348
|
34 |
1 |
if $params->{'method'} eq "HEAD" |
354
|
11 |
51 |
if $params->{'method'} eq "HEAD" |
355
|
2 |
60 |
if grep {$_ eq $code;} @ignore |
359
|
49 |
11 |
unless ($error_type) |
360
|
0 |
49 |
if (defined $body and length $body) |
367
|
0 |
60 |
if $params->{'body'} |
372
|
2 |
58 |
if ($body = $self->serializer->decode($body)) |
376
|
0 |
2 |
if $error_type eq "Conflict" and $msg =~ /: version conflict, current (?:version )?\[(\d+)\]/ |
390
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
393
|
0 |
0 |
if ($_ =~ /^\d+\s+\S+\s+"((?:\\"|[^"])+)"/) { } |
408
|
0 |
2 |
unless ref $body eq "HASH" |
410
|
2 |
0 |
unless ref $error eq "HASH" |
413
|
0 |
0 |
unless (@$root_causes) |
414
|
0 |
0 |
if $error->{'type'} |
415
|
0 |
0 |
if $error->{'reason'} |
425
|
0 |
0 |
if (keys %cause) |