| line |
true |
false |
branch |
|
42
|
0 |
0 |
if defined $args{'data'} |
|
48
|
0 |
0 |
if (@_) |
|
76
|
0 |
0 |
if (ref $self ne 'Net::Dynect::REST::RData') |
|
81
|
0 |
0 |
unless defined $$self{'data'} |
|
83
|
0 |
0 |
if (@_) |
|
86
|
0 |
0 |
if ($name eq 'address') { } |
|
|
0 |
0 |
elsif ($name eq 'txtdata') { } |
|
|
0 |
0 |
elsif ($name eq 'cname') { } |
|
87
|
0 |
0 |
unless 'Net::Dynect::REST::RData'->_is_valid_ipv4($new) or 'Net::Dynect::REST::RData'->_is_valid_ipv6($new) |
|
89
|
0 |
0 |
unless 'Net::Dynect::REST::RData'->_is_valid_txtdata($new) |
|
91
|
0 |
0 |
unless 'Net::Dynect::REST::RData'->_is_valid_fqdn($new) |
|
95
|
0 |
0 |
if defined $$self{'data'}{$name} |
|
120
|
0 |
0 |
if $fqdn =~ /^(([a-zA-Z0-9]|[a-zA-Z0-9][a-zA-Z0-9\-]*[a-zA-Z0-9])\.)*([A-Za-z]|[A-Za-z][A-Za-z0-9\-]*[A-Za-z0-9])$/ |