| line |
true |
false |
branch |
|
21
|
0 |
0 |
if is_string($URL) |
|
22
|
0 |
0 |
unless is_instance($URL, 'URI') |
|
26
|
0 |
0 |
unless (defined $password) |
|
27
|
0 |
0 |
unless eval {
do {
require Net::Netrc
}
} |
|
29
|
0 |
0 |
if (my $machine = 'Net::Netrc'->lookup($URL->host, $username)) { } |
|
37
|
0 |
0 |
unless is_string($username) |
|
40
|
0 |
0 |
unless is_string($password) |
|
43
|
0 |
0 |
unless defined $rest_client_config |
|
44
|
0 |
0 |
unless is_hash_ref($rest_client_config) |
|
73
|
0 |
0 |
unless $type |
|
74
|
0 |
0 |
unless $code |
|
78
|
0 |
0 |
if (eval {
do {
require HTTP::Status
}
}) |
|
79
|
0 |
0 |
if (my $status = &HTTP::Status::status_message($code)) |
|
86
|
0 |
0 |
if ($type =~ m[text/plain]i) { } |
|
|
0 |
0 |
elsif ($type =~ m[text/html]i and eval {
do {
require HTML::TreeBuilder
}
}) { } |
|
105
|
0 |
0 |
unless $code =~ /^2/ |
|
108
|
0 |
0 |
if (not defined $type) { } |
|
|
0 |
0 |
elsif ($type =~ m[^application/json]i) { } |
|
|
0 |
0 |
elsif ($type =~ m[^text/plain]i) { } |
|
111
|
0 |
0 |
if (substr($content, 0, 4) eq q<)]}'>) { } |
|
126
|
0 |
0 |
unless eval {
do {
$$self{'rest'}->GET("/a$resource")
}
} |
|
135
|
0 |
0 |
unless eval {
do {
$$self{'rest'}->DELETE("/a$resource")
}
} |
|
144
|
0 |
0 |
unless eval {
do {
$$self{'rest'}->PUT("/a$resource", $$self{'json'}->encode($value), {'Content-Type', 'application/json;charset=UTF-8'})
}
} |
|
157
|
0 |
0 |
unless eval {
do {
$$self{'rest'}->POST("/a$resource", $$self{'json'}->encode($value), {'Content-Type', 'application/json;charset=UTF-8'})
}
} |