Branch Coverage

blib/lib/Net/DRI/DRD.pm
Criterion Covered Total %
branch 78 484 16.1


line true false branch
95 2 64 defined $r[0] ? :
103 1 0 unless defined $ndr and $ndr and ref $ndr eq 'Net::DRI::Registry'
104 0 1 unless defined $self->{'info'}
105 0 1 unless defined $key and exists $self->{'info'}{$key}
112 8 0 unless defined $ndr and $ndr and ref $ndr eq 'Net::DRI::Registry'
113 8 0 unless (defined $strict)
114 0 8 if ($domain =~ /\.e164\.arpa$/)
116 8 0 $strict ? :
117 8 0 $domain =~ /$r/ ? :
124 8 0 if (exists $rules->{'check_name'} and $rules->{'check_name'})
127 8 0 unless (defined $dots)
128 0 8 exists $rules->{'check_name_unicode'} ? :
129 0 8 if (length $r)
132 0 0 if (exists $rules->{'check_name_no_dots'} and $rules->{'check_name_no_dots'})
135 0 0 if (length $r)
138 0 8 if (exists $rules->{'my_tld'} and $rules->{'my_tld'} and not $self->is_my_tld($domain))
139 0 0 if (exists $rules->{'my_tld_not_strict'} and $rules->{'my_tld_not_strict'} and not $self->is_my_tld($domain, 0))
140 7 0 if (exists $rules->{'icann_reserved'} and $rules->{'icann_reserved'})
143 0 7 if length $ri
147 0 1 if (exists $rules->{'min_length'} and $rules->{'min_length'} and length $d[0] < $rules->{'min_length'})
148 0 0 if (exists $rules->{'no_double_hyphen'} and $rules->{'no_double_hyphen'} and substr($d[0], 2, 2) eq '--')
149 0 0 if (exists $rules->{'no_double_hyphen_except_idn'} and $rules->{'no_double_hyphen_except_idn'} and substr($d[0], 2, 2) eq '--' and substr($d[0], 0, 2) ne 'xn')
150 0 0 if (exists $rules->{'no_country_code'} and $rules->{'no_country_code'} and exists $Net::DRI::Util::CCA2{uc $d[0]})
151 0 0 if (exists $rules->{'no_digits_only'} and $rules->{'no_digits_only'} and $d[0] =~ /^\d+$/)
153 0 8 if ($domain =~ /\.e164\.arpa$/ and not $domain =~ /^(?:\d+\.)+e164\.arpa$/)
155 0 8 if (exists $rules->{'excluded_labels'})
157 0 0 ref $rules->{'excluded_labels'} ? :
158 0 0 if (lc($d[0]) =~ /^(?:$n)$/o)
169 2 6 unless (exists $self->{'dots'})
180 0 0 unless defined $type and ref $ndr
181 0 0 unless defined $type and $type
183 0 0 grep({lc $_ eq $type;} $self->object_types) ? :
190 0 0 eval { do { $self->can($what) } } && !grep({$what eq $_;} $self->unavailable_operations) ? :
204 0 0 unless (defined $op)
205 0 0 if ($op =~ /^(?:renew|update|delete)$/)
206 0 0 if ($op eq 'transfer')
220 0 3 if ref $host
222 0 3 if length $r
223 0 0 if defined $checktld and $checktld and not $self->is_my_tld($host, 0)
230 11 0 unless defined $ndr and $ndr and ref $ndr eq 'Net::DRI::Registry'
232 0 11 unless defined $data
233 0 11 if ref $data
234 0 11 unless length $data
235 0 11 unless Net::DRI::Util::is_hostname($data, $unicode)
236 8 3 if (defined $dots and not $data =~ /\.e164\.arpa$/)
239 8 0 ref $dots ? :
240 0 8 unless grep {1 + $_ == @d;} @ok
251 0 1 unless @d
252 1 9 if 0 == Net::DRI::Util::compare_durations($d, $duration)
261 0 1 if (defined $duration and @d)
266 0 0 unless 0 == Net::DRI::Util::compare_durations($d, $duration)
270 0 0 unless $ok
272 0 0 if (defined $curexp and Net::DRI::Util::is_class($curexp, 'DateTime'))
278 0 0 unless $cmp == -1
297 0 0 unless $op eq 'start'
299 0 0 unless $rc->is_success
301 0 0 unless $trdate and $trdate->isa('DateTime')
305 0 0 $cmp == 1 ? :
315 0 0 defined $domain && $domain ? :
0 8 if length $err
323 0 0 defined $dh ? :
0 0 Net::DRI::Util::is_class($dh, 'Net::DRI::Data::Hosts') ? :
0 3 if length $err
330 0 0 defined $c && $c && eval { do { $c->can('srid') } } ? :
345 1 0 Net::DRI::Util::has_key($rd, 'pure_create') && $rd->{'pure_create'} ? :
348 0 1 unless ($pure)
352 0 0 unless $rs->is_success and defined $rs->local_get_data('domain', $domain, 'exist') and $rs->local_get_data('domain', $domain, 'exist') == 0
357 0 1 if Net::DRI::Util::has_key($rd, 'ns')
360 0 0 if (not $pure and exists $rd->{'ns'} and $self->has_object('ns'))
365 0 0 if ($a[0] =~ /^(.+\.)?$domain$/i) { }
372 0 0 unless (defined $e and $e == 1)
376 0 0 unless $rs->is_success
385 0 0 if (not $pure and exists $rd->{'contact'} and Net::DRI::Util::isa_contactset($rd->{'contact'}) and $self->has_object('contact'))
392 0 0 if exists $cd{$co->srid}
394 0 0 unless (defined $e and $e == 1)
398 0 0 unless $rs->is_success
405 0 1 if Net::DRI::Util::has_key($rd, 'duration') and ref $rd->{'duration'} ne 'DateTime::Duration' || $self->verify_duration_create($ndr, $rd->{'duration'}, $domain)
407 1 0 if $pure
410 0 0 unless $rs->is_success
413 0 0 unless ($nsin->is_empty)
421 0 0 unless $rs->is_success
424 0 0 $ndr->protocol_capable('domain_update', 'ns', 'add') ? :
426 0 0 unless $rs->is_success
430 0 0 if (Net::DRI::Util::has_key($rd, 'status'))
432 0 0 $ndr->protocol_capable('domain_update', 'status', 'add') ? :
434 0 0 unless $rs->is_success
438 0 0 if ($ndr->protocol->has_action('domain', 'info'))
452 0 0 Net::DRI::Util::has_key($rd, 'pure_delete') && $rd->{'pure_delete'} ? :
458 0 0 unless ($pure)
462 0 0 unless $rs->is_success
466 0 0 if (defined $ns and not $ns->is_empty)
470 0 0 unless $rs->is_success
475 0 0 if (defined $ns and not $ns->is_empty and $self->has_object('ns'))
482 0 0 unless $rs->is_success or $rs->is('OBJECT_ASSOCIATION_PROHIBITS_OPERATION') and defined $base
483 0 0 unless ($rs->is_success)
487 0 0 unless $rs->is_success
503 1 0 unless (defined $rc)
517 0 2 if (defined $p and ref $p eq 'HASH')
519 0 0 if defined $rd
526 0 2 unless @names
527 2 0 unless defined $rd
533 0 2 if exists $seendom{$domain}
536 2 0 if (not defined $rs) { }
541 0 0 unless exists $seenrc{'' . $rs}
546 0 2 unless @todo
548 0 2 if (@todo > 1 and $ndr->protocol->has_action('domain', 'check_multi')) { }
551 0 0 unless (defined $l)
573 0 1 defined $rd ? :
574 0 1 unless $rc->is_success
584 0 3 if $tochange->all_defined('contact') and not $self->has_object('contact')
589 0 3 unless $ndr->protocol_capable('domain_update', $t)
595 0 3 if defined $add and not $ndr->protocol_capable('domain_update', $t, 'add')
596 0 3 if defined $del and not $ndr->protocol_capable('domain_update', $t, 'del')
597 0 3 if defined $set and not $ndr->protocol_capable('domain_update', $t, 'set')
616 3 0 if (defined $nsdel) { }
620 2 1 unless $nsadd->is_empty
621 2 1 unless $nsdel->is_empty
637 0 0 if (defined $sdel) { }
641 0 0 unless $sadd->is_empty
642 0 0 unless $sdel->is_empty
658 0 0 if (defined $cdel) { }
662 0 0 unless $cadd->is_empty
663 0 0 unless $cdel->is_empty
677 0 1 if Net::DRI::Util::has_key($rd, 'duration')
678 1 0 if Net::DRI::Util::has_key($rd, 'current_expiration')
679 0 1 if $self->verify_duration_renew($ndr, $rd->{'duration'}, $domain, $rd->{'current_expiration'})
690 0 0 unless $op =~ /^(?:start|stop|query|accept|refuse)$/
691 0 0 if Net::DRI::Util::has_key($rd, 'duration') and $self->verify_duration_transfer($ndr, $rd->{'duration'}, $domain, $op)
694 0 0 if ($op eq 'start') { }
0 0 elsif ($op eq 'stop') { }
0 0 elsif ($op eq 'query') { }
705 0 0 $op eq 'accept' ? :
724 0 0 unless $sok
728 0 0 unless defined $n
729 0 0 ($ismine xor $n) ? :
741 0 0 unless $what =~ /^(?:delete|update|transfer|renew)$/
743 0 0 unless defined $s
745 0 0 if $what eq 'delete'
746 0 0 if $what eq 'update'
747 0 0 if $what eq 'transfer'
748 0 0 if $what eq 'renew'
756 0 0 unless $rc->is_success
758 0 0 unless Net::DRI::Util::isa_statuslist($s)
766 0 0 unless defined $clid
768 0 0 unless $rc->is_success
770 0 0 unless defined $id
771 0 0 $clid =~ /^$id$/ ? :
782 0 0 Net::DRI::Util::isa_hosts('$dh') ? :
793 0 1 Net::DRI::Util::isa_hosts('$dh') ? :
804 0 0 Net::DRI::Util::isa_hosts('$dh') ? :
808 0 0 unless (defined $rc)
810 0 0 unless $rc->is_success
811 0 0 wantarray ? :
818 0 2 defined $_ && Net::DRI::Util::isa_hosts($_, 1) ? :
820 0 2 if (defined $p and ref $p eq 'HASH')
822 0 0 if defined $rd
829 0 2 unless @names
830 2 0 unless defined $rd
836 0 2 if exists $seenhost{$host}
839 2 0 if (not defined $rs) { }
844 0 0 unless exists $seenrc{'' . $rs}
849 0 2 unless @todo
851 0 2 if (@todo > 1 and $ndr->protocol->has_action('host', 'check_multi')) { }
854 0 0 unless (defined $l)
876 0 1 defined $rh ? :
877 0 1 unless $rc->is_success
885 0 0 Net::DRI::Util::isa_hosts('$dh') ? :
892 0 0 unless $ndr->protocol_capable('host_update', $t)
898 0 0 if defined $add and not $ndr->protocol_capable('host_update', $t, 'add')
899 0 0 if defined $del and not $ndr->protocol_capable('host_update', $t, 'del')
900 0 0 if defined $set and not $ndr->protocol_capable('host_update', $t, 'set')
919 0 0 if (defined $ipdel) { }
923 0 0 unless $ipadd->is_empty
924 0 0 unless $ipdel->is_empty
940 0 0 if (defined $sdel) { }
944 0 0 unless $sadd->is_empty
945 0 0 unless $sdel->is_empty
956 0 0 if $newname and Net::DRI::Util::is_class($newname, 'Net::DRI::Data::Hosts')
965 0 0 unless $rc->is_success
967 0 0 unless Net::DRI::Util::isa_statuslist($s)
975 0 0 unless defined $clid
977 0 0 unless $rc->is_success
979 0 0 unless defined $id
980 0 0 $clid =~ /^$id$/ ? :
990 0 0 unless Net::DRI::Util::isa_contact($contact)
992 0 0 if $contact->can('init')
1001 0 0 unless Net::DRI::Util::isa_contact($contact) and $contact->srid
1010 0 0 unless Net::DRI::Util::isa_contact($contact) and $contact->srid
1013 0 0 unless (defined $rc)
1023 0 0 if (defined $p and ref $p eq 'HASH')
1025 0 0 if defined $rd
1029 0 0 unless Net::DRI::Util::isa_contact($p) and length $p->srid
1032 0 0 unless @names
1033 0 0 unless defined $rd
1039 0 0 if exists $seencon{$contact}
1042 0 0 if (not defined $rs) { }
1047 0 0 unless exists $seenrc{'' . $rs}
1052 0 0 unless @todo
1054 0 0 if (@todo > 1 and $ndr->protocol->has_action('contact', 'check_multi')) { }
1057 0 0 unless (defined $l)
1078 0 0 unless Net::DRI::Util::isa_contact($contact) and $contact->srid
1080 0 0 defined $ep ? :
1081 0 0 unless $rc->is_success
1088 0 0 unless Net::DRI::Util::isa_contact($contact) and $contact->srid
1095 0 0 unless $ndr->protocol_capable('contact_update', $t)
1101 0 0 if defined $add and not $ndr->protocol_capable('contact_update', $t, 'add')
1102 0 0 if defined $del and not $ndr->protocol_capable('contact_update', $t, 'del')
1103 0 0 if defined $set and not $ndr->protocol_capable('contact_update', $t, 'set')
1120 0 0 if (defined $sdel) { }
1124 0 0 unless $sadd->is_empty
1125 0 0 unless $sdel->is_empty
1136 0 0 unless Net::DRI::Util::isa_contact($contact) and $contact->srid
1137 0 0 unless $op =~ /^(?:start|stop|query|accept|refuse)$/
1141 0 0 if ($op eq 'start') { }
0 0 elsif ($op eq 'stop') { }
0 0 elsif ($op eq 'query') { }
1152 0 0 $op eq 'accept' ? :
1169 0 0 unless $rc->is_success
1171 0 0 unless Net::DRI::Util::isa_statuslist($s)
1179 0 0 unless defined $clid
1181 0 0 unless $rc->is_success
1183 0 0 unless defined $id
1184 0 0 $clid =~ /^$id$/ ? :
1209 0 0 defined $c && $c ? :
1216 0 0 if defined $count
1218 0 0 unless $rc->is_success
1220 0 0 defined $count && $count ? :
1279 0 0 unless $op =~ /^(?:start|stop)$/
1282 0 0 if ($op eq 'start') { }
0 0 elsif ($op eq 'stop') { }
1300 0 0 unless defined Net::DRI::Util::isa_nsgroup($nsg)
1307 0 0 unless defined Net::DRI::Util::isa_nsgroup($nsg)
1314 0 0 unless grep {defined Net::DRI::Util::isa_nsgroup($_);} @nsg
1321 0 0 unless defined Net::DRI::Util::isa_nsgroup($nsg)
1328 0 0 unless defined Net::DRI::Util::isa_nsgroup($nsg)
1336 0 0 unless defined $kg
1343 0 0 unless defined $kg
1350 0 0 @kgs && ref $kgs[-1] eq 'HASH' ? :
1351 0 0 unless grep {defined $_;} @kgs
1358 0 0 unless defined $kg
1365 0 0 unless defined $kg
1376 0 0 unless (defined $rc)