| line |
true |
false |
branch |
|
29
|
0 |
0 |
unless my $self = shift() |
|
32
|
0 |
0 |
unless (%params) |
|
35
|
0 |
0 |
unless $params{'path'} |
|
43
|
0 |
0 |
unless $params{'method'} =~ /^(GET|PUT|POST|DELETE)$/ |
|
51
|
0 |
0 |
unless ($params{'path'} eq "access/domains" or $self->check_login_ticket) |
|
55
|
0 |
0 |
if $self->{'params'}{'debug'} |
|
56
|
0 |
0 |
unless $self->login |
|
68
|
0 |
0 |
if defined $self->{'ticket'} |
|
74
|
0 |
0 |
unless ($params{'method'} eq "GET") |
|
79
|
0 |
0 |
if ($params{'method'} =~ /^(PUT|POST)$/) { } |
|
|
0 |
0 |
elsif ($params{'method'} =~ /^(GET|DELETE)$/) { } |
|
88
|
0 |
0 |
if (%{$params{'post_data'};}) |
|
101
|
0 |
0 |
if ($response->is_success) { } |
|
103
|
0 |
0 |
if $self->{'params'}{'debug'} |
|
108
|
0 |
0 |
if (ref $data eq "HASH" and exists $data->{'data'}) |
|
111
|
0 |
0 |
if (ref $data->{'data'} eq "ARRAY") |
|
115
|
0 |
0 |
wantarray ? : |
|
137
|
0 |
0 |
unless my $self = shift() |
|
143
|
0 |
0 |
unless my $self = shift() |
|
147
|
0 |
0 |
if (ref $data eq "HASH" and $data->{'version'}) |
|
149
|
0 |
0 |
if $version > 2 |
|
157
|
0 |
0 |
unless my $self = shift() |
|
160
|
0 |
0 |
if ($d) { } |
|
|
0 |
0 |
elsif (defined $d) { } |
|
167
|
0 |
0 |
if $self->{'debug'} |
|
174
|
0 |
0 |
unless my $self = shift() |
|
175
|
0 |
0 |
unless my(@path) = @_ |
|
177
|
0 |
0 |
if ($self->nodes) |
|
185
|
0 |
0 |
unless my $self = shift() |
|
187
|
0 |
0 |
if ref $_[-1] |
|
189
|
0 |
0 |
unless my(@path) = @_ |
|
208
|
0 |
0 |
if (scalar @p == 1) { } |
|
|
0 |
0 |
elsif (scalar @p % 2 != 0) { } |
|
210
|
0 |
0 |
unless ref $p[0] eq "HASH" |
|
221
|
0 |
0 |
unless (%params) = @p |
|
225
|
0 |
0 |
unless $params{'host'} |
|
226
|
0 |
0 |
unless $params{'password'} |
|
240
|
0 |
0 |
if ($self->{'params'}{'ssl_opts'}) |
|
256
|
0 |
0 |
unless my $self = shift() |
|
258
|
0 |
0 |
if ref $_[-1] |
|
260
|
0 |
0 |
unless my(@path) = @_ |
|
262
|
0 |
0 |
if ($self->nodes) |
|
277
|
0 |
0 |
unless my $self = shift() |
|
279
|
0 |
0 |
if ref $_[-1] |
|
281
|
0 |
0 |
unless my(@path) = @_ |
|
283
|
0 |
0 |
if ($self->nodes) |
|
299
|
0 |
0 |
unless my $self = shift() |