| line |
true |
false |
branch |
|
23
|
0 |
0 |
if is_string($URL) |
|
24
|
0 |
0 |
unless is_instance($URL, 'URI') |
|
28
|
0 |
0 |
unless ($URL->path =~ m[/service/local$]) |
|
33
|
0 |
0 |
unless (defined $password) |
|
34
|
0 |
0 |
unless eval {
do {
require Net::Netrc
}
} |
|
36
|
0 |
0 |
if (my $machine = 'Net::Netrc'->lookup($URL->host, $username)) { } |
|
44
|
0 |
0 |
unless is_string($username) |
|
47
|
0 |
0 |
unless is_string($password) |
|
50
|
0 |
0 |
unless defined $rest_client_config |
|
51
|
0 |
0 |
unless is_hash_ref($rest_client_config) |
|
80
|
0 |
0 |
unless $type |
|
81
|
0 |
0 |
unless $code |
|
85
|
0 |
0 |
if (eval {
do {
require HTTP::Status
}
}) |
|
86
|
0 |
0 |
if (my $status = &HTTP::Status::status_message($code)) |
|
93
|
0 |
0 |
if ($type =~ m[text/plain]i) { } |
|
|
0 |
0 |
elsif ($type =~ m[application/json]) { } |
|
|
0 |
0 |
elsif ($type =~ m[text/html]i and eval {
do {
require HTML::TreeBuilder
}
}) { } |
|
97
|
0 |
0 |
if (ref $error eq 'HASH' and exists $$error{'errorMessages'}) { } |
|
121
|
0 |
0 |
unless $code =~ /^2/ |
|
124
|
0 |
0 |
unless $content |
|
126
|
0 |
0 |
if (not defined $type) { } |
|
|
0 |
0 |
elsif ($type =~ m[^application/json]i) { } |
|
|
0 |
0 |
elsif ($type =~ m[^text/plain]i) { } |
|
140
|
0 |
0 |
unless is_hash_ref($query) |
|
148
|
0 |
0 |
if $query |
|
158
|
0 |
0 |
if $query |
|
168
|
0 |
0 |
if $query |
|
181
|
0 |
0 |
if $query |