| 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) |