| line |
true |
false |
branch |
|
95
|
2 |
55 |
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 |
8 |
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 |
1 |
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) |