| line |
true |
false |
branch |
|
97
|
0 |
0 |
ref $domain ? : |
|
98
|
0 |
0 |
unless @dom |
|
102
|
0 |
0 |
unless defined $d and $d |
|
104
|
0 |
0 |
unless Net::DRI::Util::is_hostname($d) |
|
108
|
0 |
0 |
ref $command ? : |
|
110
|
0 |
0 |
defined $dns ? : |
|
141
|
0 |
0 |
unless $mes->is_success |
|
144
|
0 |
0 |
unless $chkdata |
|
147
|
0 |
0 |
unless @d and @s |
|
151
|
0 |
0 |
$s[0]->getFirstChild->getData eq 'free' ? : |
|
159
|
0 |
0 |
defined($$rd{'withProvider'} && $$rd{'withProvider'}) ? : |
|
171
|
0 |
0 |
unless $mes->is_success |
|
173
|
0 |
0 |
unless $infdata |
|
180
|
0 |
0 |
unless $c->nodeType == 1 |
|
182
|
0 |
0 |
unless $name |
|
184
|
0 |
0 |
if ($name eq 'handle') { } |
|
|
0 |
0 |
elsif ($name eq 'status') { } |
|
|
0 |
0 |
elsif ($name eq 'contact') { } |
|
|
0 |
0 |
elsif ($name eq 'dnsentry') { } |
|
|
0 |
0 |
elsif ($name eq 'regAccId') { } |
|
|
0 |
0 |
elsif ($name eq 'changed') { } |
|
|
0 |
0 |
elsif ($name eq 'chprovData') { } |
|
193
|
0 |
0 |
$val eq 'connect' ? : |
|
202
|
0 |
0 |
if defined $rmap{$role} |
|
203
|
0 |
0 |
if defined $hndl_tag and defined $hndl_tag->getFirstChild |
|
246
|
0 |
0 |
unless $n->nodeType == 1 |
|
248
|
0 |
0 |
unless $name |
|
250
|
0 |
0 |
if ($name eq 'rdata') |
|
255
|
0 |
0 |
unless $nn->nodeType == 1 |
|
257
|
0 |
0 |
unless $name2 |
|
258
|
0 |
0 |
if ($name2 eq 'nameserver') { } |
|
|
0 |
0 |
elsif ($name2 eq 'address') { } |
|
261
|
0 |
0 |
if $hostname =~ /\.$/ |
|
266
|
0 |
0 |
if ($ip =~ /:/) { } |
|
296
|
0 |
0 |
unless $mes->is_success |
|
299
|
0 |
0 |
unless $infodata |
|
302
|
0 |
0 |
unless $namedata |
|
305
|
0 |
0 |
unless $trndata |
|
315
|
0 |
0 |
unless $c->nodeType == 1 |
|
317
|
0 |
0 |
unless $name |
|
319
|
0 |
0 |
if ($name eq 'chprovTo') { } |
|
|
0 |
0 |
elsif ($name eq 'chprovStatus') { } |
|
|
0 |
0 |
elsif ($name =~ /^(chprovStart|chprovReminder|chprovEnd)$/) { } |
|
327
|
0 |
0 |
defined $stmap{$val} ? : |
|
351
|
0 |
0 |
if ($def and ref $def eq 'HASH' and exists $$def{'domain_create'} and ref $$def{'domain_create'} eq 'HASH') |
|
354
|
0 |
0 |
unless $rd and ref $rd eq 'HASH' and keys %$rd |
|
357
|
0 |
0 |
if exists $$rd{$k} |
|
363
|
0 |
0 |
if Net::DRI::Util::has_contact($rd) |
|
366
|
0 |
0 |
if Net::DRI::Util::has_ns($rd) |
|
368
|
0 |
0 |
if $$rd{'secdns'} |
|
386
|
0 |
0 |
defined $trans{$t} ? : |
|
405
|
0 |
0 |
unless defined $xmlns |
|
412
|
0 |
0 |
unless $secdns |
|
415
|
0 |
0 |
unless $$s{'key_flags'} |
|
416
|
0 |
0 |
unless Net::DRI::Util::verify_ushort($$s{'key_flags'}) |
|
417
|
0 |
0 |
unless Net::DRI::Util::verify_ubyte($$s{'key_protocol'}) |
|
418
|
0 |
0 |
unless Net::DRI::Util::verify_ubyte($$s{'key_alg'}) |
|
419
|
0 |
0 |
unless Net::DRI::Util::verify_base64($$s{'key_pubKey'}, 1) |
|
435
|
0 |
0 |
unless $mes->is_success |
|
438
|
0 |
0 |
unless $credata |
|
443
|
0 |
0 |
unless $c->nodeType == 1 |
|
445
|
0 |
0 |
unless $name |
|
447
|
0 |
0 |
if ($name eq 'name') { } |
|
|
0 |
0 |
elsif ($name =~ /^(crDate|exDate)$/) { } |
|
469
|
0 |
0 |
if (Net::DRI::Util::has_contact($rd)) |
|
493
|
0 |
0 |
if Net::DRI::Util::has_contact($rd) |
|
496
|
0 |
0 |
if Net::DRI::Util::has_ns($rd) |
|
498
|
0 |
0 |
if $$rd{'auth'} |
|
508
|
0 |
0 |
Net::DRI::Util::has_key($rd, 'approve') && $$rd{'approve'} ? : |
|
522
|
0 |
0 |
if ($def and ref $def eq 'HASH' and exists $$def{'domain_create'} and ref $$def{'domain_create'} eq 'HASH') |
|
525
|
0 |
0 |
unless $rd and ref $rd eq 'HASH' and keys %$rd |
|
528
|
0 |
0 |
if exists $$rd{$k} |
|
534
|
0 |
0 |
if Net::DRI::Util::has_contact($rd) |
|
537
|
0 |
0 |
if Net::DRI::Util::has_ns($rd) |
|
546
|
0 |
0 |
exists $$rd{'disconnect'} && $$rd{'disconnect'} eq 'true' ? : |
|
561
|
0 |
0 |
if Net::DRI::Util::has_contact($rd) |
|
571
|
0 |
0 |
exists $$rd{'authinfohash'} ? : |
|
572
|
0 |
0 |
if $hash and exists $$rd{'authinfoexpire'} |
|
573
|
0 |
0 |
$hash ? : |
|
596
|
0 |
0 |
unless Net::DRI::Util::isa_changes($todo) |
|
598
|
0 |
0 |
unless Net::DRI::Util::isa_contactset($cs) and Net::DRI::Util::isa_hosts($ns) |
|
600
|
0 |
0 |
if (grep {not /^(?:add|del)$/;} $todo->types('ns') or grep {not /^(?:add|del)$/;} $todo->types('contact')) |
|
613
|
0 |
0 |
if (defined $nsadd) |
|
618
|
0 |
0 |
if (defined $nsdel) |
|
624
|
0 |
0 |
unless (grep {$_ eq $hostname;} $nsdel->get_names) |
|
633
|
0 |
0 |
if (defined $cadd) |
|
640
|
0 |
0 |
if (defined $cdel) |