| line |
true |
false |
branch |
|
38
|
0 |
0 |
if defined $args{'connection'} |
|
40
|
0 |
0 |
if (defined $args{'fqdn'} and defined $args{'zone'} and defined $args{'record_id'}) |
|
44
|
0 |
0 |
if $self->get('zone', $args{'zone'}, 'fqdn', $args{'fqdn'}, 'record_id', $args{'record_id'}) |
|
51
|
0 |
0 |
if defined $args{'zone'} |
|
52
|
0 |
0 |
if defined $args{'fqdn'} |
|
53
|
0 |
0 |
if defined $args{'rdata'} |
|
54
|
0 |
0 |
if defined $args{'ttl'} |
|
68
|
0 |
0 |
unless (defined $args{'connection'} and ref $args{'connection'} eq 'Net::Dynect::REST') |
|
76
|
0 |
0 |
unless (defined $args{'zone'}) |
|
80
|
0 |
0 |
unless (defined $args{'fqdn'}) |
|
88
|
0 |
0 |
unless ($request) |
|
96
|
0 |
0 |
unless ($response) |
|
101
|
0 |
0 |
unless ($response->status =~ /^success$/i) |
|
106
|
0 |
0 |
if (ref $response->data ne 'ARRAY') |
|
113
|
0 |
0 |
if ($_->value =~ m[/REST/([^\/]+)/([^\/]+)/([^\/]+)/(\d+)$]) { } |
|
145
|
0 |
0 |
unless (defined $args{'zone'} or $self->zone) |
|
150
|
0 |
0 |
unless (defined $args{'fqdn'} or $self->fqdn) |
|
166
|
0 |
0 |
unless ($request) |
|
174
|
0 |
0 |
unless ($response) |
|
179
|
0 |
0 |
unless ($response->status =~ /^success$/i) |
|
207
|
0 |
0 |
if (not defined $$self{'connection'}) { } |
|
|
0 |
0 |
elsif (not defined $self->fqdn) { } |
|
|
0 |
0 |
elsif (not defined $self->rdata) { } |
|
228
|
0 |
0 |
unless ($response->status =~ /^success$/i) |
|
238
|
0 |
0 |
unless defined $$self{'connection'} |
|
239
|
0 |
0 |
unless defined $self->zone |
|
240
|
0 |
0 |
unless defined $self->fqdn and $self->record_id |
|
247
|
0 |
0 |
if ($response->status =~ /^success$/i) { } |
|
254
|
0 |
0 |
if defined $response->msgs |
|
273
|
0 |
0 |
if (@_) |
|
275
|
0 |
0 |
if (defined $$self{'fqdn'} and $$self{'fqdn'} ne $new) { } |
|
|
0 |
0 |
elsif (not $new =~ /^\S+/) { } |
|
297
|
0 |
0 |
if (@_) |
|
299
|
0 |
0 |
if (defined $$self{'zone'}) { } |
|
|
0 |
0 |
elsif (not $new =~ /^\S+/) { } |
|
321
|
0 |
0 |
if (@_) |
|
336
|
0 |
0 |
if (@_) |
|
351
|
0 |
0 |
if (@_) |
|
353
|
0 |
0 |
unless ($new =~ /^\d*$/) |
|
370
|
0 |
0 |
if (@_) |
|
372
|
0 |
0 |
unless ($new =~ /^\d+$/) |
|
395
|
0 |
0 |
if (@_) |
|
405
|
0 |
0 |
if defined $self->fqdn |
|
406
|
0 |
0 |
if defined $self->record_type |
|
408
|
0 |
0 |
if defined $self->record_id |
|
410
|
0 |
0 |
if defined $self->ttl |
|
411
|
0 |
0 |
if defined $self->zone |
|
412
|
0 |
0 |
if defined $self->rdata |