| line |
true |
false |
branch |
|
42
|
0 |
0 |
if (defined $self->{'ticket'})
|
|
48
|
0 |
0 |
if ($params->{'method'} ne "GET")
|
|
55
|
0 |
0 |
if (defined $self->{'pveapitoken'})
|
|
66
|
0 |
0 |
unless my $self = shift()
|
|
69
|
0 |
0 |
unless (%params)
|
|
74
|
0 |
0 |
unless $params{'path'}
|
|
82
|
0 |
0 |
unless $params{'method'} =~ /^(GET|PUT|POST|DELETE)$/
|
|
90
|
0 |
0 |
unless ($params{'path'} eq "access/domains" or $self->check_login_ticket)
|
|
94
|
0 |
0 |
if $self->{'params'}{'debug'}
|
|
95
|
0 |
0 |
unless $self->login
|
|
105
|
0 |
0 |
if ($params{'method'} =~ /^(PUT|POST)$/)
|
|
113
|
0 |
0 |
if ($params{'method'} =~ /^(GET|DELETE)$/)
|
|
114
|
0 |
0 |
if (%{$params{'post_data'};}) { }
|
|
125
|
0 |
0 |
unless (defined $response)
|
|
131
|
0 |
0 |
if ($response->is_success) { }
|
|
133
|
0 |
0 |
if $self->{'params'}{'debug'}
|
|
137
|
0 |
0 |
if (ref $data eq "HASH" and exists $data->{'data'})
|
|
140
|
0 |
0 |
if (ref $data->{'data'} eq "ARRAY")
|
|
144
|
0 |
0 |
wantarray ? :
|
|
169
|
0 |
0 |
unless my $self = shift()
|
|
176
|
0 |
0 |
unless my $self = shift()
|
|
180
|
0 |
0 |
if (ref $data eq "HASH" and $data->{'version'})
|
|
182
|
0 |
0 |
if $version > 2
|
|
191
|
0 |
0 |
unless my $self = shift()
|
|
194
|
0 |
0 |
if $self->{'pveapitoken'}
|
|
198
|
0 |
0 |
unless ref $ticket eq "HASH"
|
|
209
|
0 |
0 |
unless $is_valid
|
|
219
|
0 |
0 |
unless my $self = shift()
|
|
221
|
0 |
0 |
if ($self->{'ticket'} or $self->{'timestamp'})
|
|
233
|
0 |
0 |
unless my $self = shift()
|
|
236
|
0 |
0 |
if ($d) { }
|
|
|
0 |
0 |
elsif (defined $d) { }
|
|
243
|
0 |
0 |
if $self->{'params'}{'debug'}
|
|
251
|
0 |
0 |
unless my $self = shift()
|
|
253
|
0 |
0 |
if ref $_[-1]
|
|
255
|
0 |
0 |
unless my(@path) = @_
|
|
257
|
0 |
0 |
if ($self->nodes)
|
|
284
|
0 |
0 |
unless my $self = shift()
|
|
286
|
0 |
0 |
if ref $_[-1]
|
|
288
|
0 |
0 |
unless my(@path) = @_
|
|
292
|
0 |
0 |
if ($self->nodes)
|
|
305
|
0 |
0 |
if (ref $totp eq "CODE")
|
|
328
|
0 |
0 |
unless my $self = shift()
|
|
330
|
0 |
0 |
if (defined $self->{'pveapitoken'})
|
|
332
|
0 |
0 |
if $self->{'params'}{'debug'}
|
|
348
|
0 |
0 |
if ($response->is_success)
|
|
352
|
0 |
0 |
if ($data->{'NeedTFA'}) { }
|
|
353
|
0 |
0 |
unless (defined $self->{'totp'})
|
|
355
|
0 |
0 |
if $self->{'params'}{'debug'}
|
|
359
|
0 |
0 |
if ($response->is_success)
|
|
361
|
0 |
0 |
if $self->{'params'}{'debug'}
|
|
370
|
0 |
0 |
if ($data->{'ticket'})
|
|
376
|
0 |
0 |
if $self->{'params'}{'debug'}
|
|
382
|
0 |
0 |
if ($self->{'params'}{'debug'})
|
|
395
|
0 |
0 |
if ($params->{'password'} || $params->{'totp'} and $params->{'tokenid'} || $params->{'secret'})
|
|
407
|
0 |
0 |
if ($params->{'password'})
|
|
409
|
0 |
0 |
unless my $password = delete $params->{'password'}
|
|
414
|
0 |
0 |
if defined $params->{'totp'}
|
|
421
|
0 |
0 |
if ($params->{'tokenid'} and $params->{'secret'})
|
|
440
|
0 |
0 |
if ($ssl_opts)
|
|
459
|
0 |
0 |
if (scalar @p == 1) { }
|
|
|
0 |
0 |
elsif (scalar @p % 2 != 0) { }
|
|
461
|
0 |
0 |
unless ref $p[0] eq "HASH"
|
|
473
|
0 |
0 |
unless %params = @p
|
|
480
|
0 |
0 |
unless my $host = delete $params{'host'}
|
|
496
|
0 |
0 |
if keys %params
|
|
507
|
0 |
0 |
unless my $self = shift()
|
|
509
|
0 |
0 |
if ref $_[-1]
|
|
511
|
0 |
0 |
unless my(@path) = @_
|
|
513
|
0 |
0 |
if ($self->nodes)
|
|
528
|
0 |
0 |
unless my $self = shift()
|
|
530
|
0 |
0 |
if ref $_[-1]
|
|
532
|
0 |
0 |
unless my(@path) = @_
|
|
534
|
0 |
0 |
if ($self->nodes)
|
|
549
|
0 |
0 |
unless my $self = shift()
|