Branch Coverage

blib/lib/Net/DRI/Protocol/RRI/Domain.pm
Criterion Covered Total %
branch 0 174 0.0


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)