| line |
true |
false |
branch |
|
30
|
0 |
0 |
unless my $self = shift() |
|
33
|
0 |
0 |
unless (%params) |
|
36
|
0 |
0 |
unless $params{'path'} |
|
44
|
0 |
0 |
unless $params{'method'} =~ /^(GET|PUT|POST|DELETE)$/ |
|
52
|
0 |
0 |
unless ($params{'path'} eq "access/domains" or $self->check_login_ticket) |
|
56
|
0 |
0 |
if $self->{'params'}{'debug'} |
|
57
|
0 |
0 |
unless $self->login |
|
69
|
0 |
0 |
if defined $self->{'ticket'} |
|
75
|
0 |
0 |
unless ($params{'method'} eq "GET") |
|
80
|
0 |
0 |
if ($params{'method'} =~ /^(PUT|POST)$/) { } |
|
|
0 |
0 |
elsif ($params{'method'} =~ /^(GET|DELETE)$/) { } |
|
89
|
0 |
0 |
if (%{$params{'post_data'};}) |
|
102
|
0 |
0 |
if ($response->is_success) { } |
|
104
|
0 |
0 |
if $self->{'params'}{'debug'} |
|
109
|
0 |
0 |
if (ref $data eq "HASH" and exists $data->{'data'}) |
|
112
|
0 |
0 |
if (ref $data->{'data'} eq "ARRAY") |
|
116
|
0 |
0 |
wantarray ? : |
|
138
|
0 |
0 |
unless my $self = shift() |
|
144
|
0 |
0 |
unless my $self = shift() |
|
148
|
0 |
0 |
if (ref $data eq "HASH" and $data->{'version'}) |
|
150
|
0 |
0 |
if $version > 2 |
|
158
|
0 |
0 |
unless my $self = shift() |
|
161
|
0 |
0 |
if ($d) { } |
|
|
0 |
0 |
elsif (defined $d) { } |
|
168
|
0 |
0 |
if $self->{'params'}{'debug'} |
|
175
|
0 |
0 |
unless my $self = shift() |
|
176
|
0 |
0 |
unless my(@path) = @_ |
|
178
|
0 |
0 |
if ($self->nodes) |
|
186
|
0 |
0 |
unless my $self = shift() |
|
188
|
0 |
0 |
if ref $_[-1] |
|
190
|
0 |
0 |
unless my(@path) = @_ |
|
209
|
0 |
0 |
if (scalar @p == 1) { } |
|
|
0 |
0 |
elsif (scalar @p % 2 != 0) { } |
|
211
|
0 |
0 |
unless ref $p[0] eq "HASH" |
|
222
|
0 |
0 |
unless (%params) = @p |
|
226
|
0 |
0 |
unless $params{'host'} |
|
227
|
0 |
0 |
unless $params{'password'} |
|
241
|
0 |
0 |
if ($self->{'params'}{'ssl_opts'}) |
|
257
|
0 |
0 |
unless my $self = shift() |
|
259
|
0 |
0 |
if ref $_[-1] |
|
261
|
0 |
0 |
unless my(@path) = @_ |
|
263
|
0 |
0 |
if ($self->nodes) |
|
278
|
0 |
0 |
unless my $self = shift() |
|
280
|
0 |
0 |
if ref $_[-1] |
|
282
|
0 |
0 |
unless my(@path) = @_ |
|
284
|
0 |
0 |
if ($self->nodes) |
|
300
|
0 |
0 |
unless my $self = shift() |