| line |
true |
false |
branch |
|
155
|
0 |
1 |
if $params{'port'} and $params{'port'} != 700 |
|
158
|
0 |
1 |
if exists $params{'testssl'} |
|
162
|
1 |
0 |
if (defined $params{'debug'}) |
|
166
|
1 |
0 |
$params{'ote'} ? : |
|
|
0 |
1 |
$params{'test'} ? : |
|
168
|
0 |
1 |
if $Debug |
|
169
|
1 |
0 |
int($params{'timeout'} || 0) > 0 ? : |
|
170
|
0 |
1 |
if ($params{'verify'}) { } |
|
177
|
0 |
1 |
if ($params{'ssl'} and $params{'ciphers'}) |
|
182
|
1 |
0 |
unless ($self->{'timeout'}) |
|
183
|
0 |
1 |
$Debug > 1 ? : |
|
187
|
0 |
1 |
if (defined $params{'def_years'}) |
|
189
|
0 |
0 |
if ($years =~ /^[0-9]+$/) { } |
|
190
|
0 |
0 |
if ($years > 0 and $years < 11) { } |
|
205
|
1 |
0 |
unless $self->_go_connect(%params) |
|
208
|
0 |
0 |
unless (defined $params{'login'} and $params{'login'} == 0) |
|
214
|
0 |
0 |
$Net::EPP::Registry::Nominet::Error ? : |
|
219
|
1 |
0 |
if (scalar keys %params) { } |
|
227
|
1 |
0 |
unless ($self->{'greeting'}) |
|
230
|
0 |
1 |
if $@ |
|
259
|
0 |
0 |
if ($self->{'authenticated'}) |
|
265
|
0 |
0 |
unless (defined $user) |
|
271
|
0 |
0 |
unless (defined $pass) |
|
277
|
0 |
0 |
unless $self->connected |
|
291
|
0 |
0 |
if ($options->{'tag_list'}) { } |
|
304
|
0 |
0 |
if $ns eq "secDNS" |
|
306
|
0 |
0 |
if $ns =~ /-/ |
|
311
|
0 |
0 |
if (scalar @svcs) |
|
323
|
0 |
0 |
if ($Net::EPP::Registry::Nominet::Code != 1000) |
|
336
|
0 |
1 |
if $res |
|
370
|
0 |
0 |
unless (defined $identifier) |
|
378
|
0 |
0 |
$type eq 'contact' ? : |
|
379
|
0 |
0 |
if ($type eq 'domain' or $type eq 'contact' or $type eq 'host') { } |
|
388
|
0 |
0 |
if $Debug |
|
392
|
0 |
0 |
unless my $response = $self->_send_frame($frame) |
|
394
|
0 |
0 |
unless wantarray |
|
398
|
0 |
0 |
if defined $extra |
|
399
|
0 |
0 |
if $Debug and defined $count |
|
403
|
0 |
0 |
if defined $extra |
|
435
|
0 |
0 |
unless (defined $renew) |
|
439
|
0 |
0 |
unless (ref $renew and ref $renew eq "HASH") |
|
443
|
0 |
0 |
unless ($renew->{'name'}) |
|
457
|
0 |
0 |
unless (defined $expiry and $expiry =~ /^2\d\d\d-\d\d-\d\d$/) |
|
458
|
0 |
0 |
if $Debug |
|
460
|
0 |
0 |
unless ($dominfo->{'exDate'} and $dominfo->{'exDate'} =~ /^2\d\d\d-\d\d-\d\d/) |
|
480
|
0 |
0 |
if (my $response = $self->_send_frame($frame)) |
|
482
|
0 |
0 |
if $Debug |
|
519
|
0 |
0 |
if (my $response = $self->_send_frame($frame)) |
|
574
|
0 |
0 |
if ($Net::EPP::Registry::Nominet::Code > 999 and $Net::EPP::Registry::Nominet::Code < 1002) |
|
637
|
0 |
0 |
if (ref $domain->{'registrant'}) |
|
639
|
0 |
0 |
if ($contyes and $contyes == 1) { } |
|
665
|
0 |
0 |
if (scalar keys %$ns) |
|
670
|
0 |
0 |
if ($$ns{"nsid$i"}) { } |
|
|
0 |
0 |
elsif ($$ns{"nsname$i"}) { } |
|
698
|
0 |
0 |
if ($domain->{$exttype}) |
|
714
|
0 |
0 |
unless $Net::EPP::Registry::Nominet::Code == 1000 |
|
716
|
0 |
0 |
if $Debug |
|
768
|
0 |
0 |
unless (defined $contact->{'fax'}) |
|
769
|
0 |
0 |
defined $contact->{'voice'} ? : |
|
782
|
0 |
0 |
unless $contact->{$field} |
|
791
|
0 |
0 |
if (defined $contact->{'disclose'}) |
|
795
|
0 |
0 |
unless $contact->{'disclose'}{$field} |
|
800
|
0 |
0 |
if $add->hasChildNodes |
|
805
|
0 |
0 |
$Net::EPP::Registry::Nominet::Code == 1000 ? : |
|
937
|
0 |
0 |
if ($data->{$action}) |
|
939
|
0 |
0 |
if ($action ne 'chg' and $data->{$action}{'ns'}) { } |
|
|
0 |
0 |
elsif ($action eq 'chg') { } |
|
946
|
0 |
0 |
if ($data->{$action}{'registrant'}) { } |
|
964
|
0 |
0 |
unless $data->{$field} |
|
969
|
0 |
0 |
if ($data->{'notes'}) |
|
984
|
0 |
0 |
if ($data->{$action}{$exttype}) |
|
999
|
0 |
0 |
$Net::EPP::Registry::Nominet::Code == 1000 ? : |
|
1067
|
0 |
0 |
if exists $data->{'new-id'} |
|
1089
|
0 |
0 |
if (defined $data->{'postalInfo'}) |
|
1092
|
0 |
0 |
unless $data->{'postalInfo'}{$intloc} |
|
1097
|
0 |
0 |
if ($thisone->{'name'}) |
|
1102
|
0 |
0 |
if ($thisone->{'addr'}) |
|
1105
|
0 |
0 |
unless defined $thisone->{'addr'}{$addrbitkey} |
|
1107
|
0 |
0 |
if (ref $addrbit eq 'ARRAY') { } |
|
1125
|
0 |
0 |
if (defined $data->{'voice'} and not $self->valid_voice($data->{'voice'})) |
|
1130
|
0 |
0 |
unless defined $data->{$field} |
|
1135
|
0 |
0 |
if (defined $data->{'disclose'}) |
|
1138
|
0 |
0 |
if ($#flags > 0 and $flags[0] != $flags[1]) |
|
1151
|
0 |
0 |
unless defined $data->{'disclose'}{$field} |
|
1154
|
0 |
0 |
$data->{'disclose'}{$field} ? : |
|
1157
|
0 |
0 |
if $child->hasChildNodes |
|
1160
|
0 |
0 |
if ($chg->hasChildNodes) |
|
1166
|
0 |
0 |
unless $data->{$field} |
|
1176
|
0 |
0 |
$Net::EPP::Registry::Nominet::Code == 1000 ? : |
|
1196
|
0 |
0 |
$Net::EPP::Registry::Nominet::Code == 1000 ? : |
|
1241
|
0 |
0 |
if ($data->{$action}) |
|
1243
|
0 |
0 |
if ($data->{$action}{'addr'}) |
|
1256
|
0 |
0 |
$Net::EPP::Registry::Nominet::Code == 1000 ? : |
|
1288
|
0 |
0 |
if (defined $old_id) |
|
1293
|
0 |
0 |
if (defined $new_id) |
|
1306
|
0 |
0 |
unless $Net::EPP::Registry::Nominet::Code == 1000 |
|
1308
|
0 |
0 |
if $Debug |
|
1328
|
0 |
0 |
if $Debug |
|
1329
|
0 |
0 |
if ($type eq 'domain') { } |
|
|
0 |
0 |
elsif ($type eq 'contact') { } |
|
|
0 |
0 |
elsif ($type eq 'host') { } |
|
1357
|
0 |
0 |
unless my $response = $self->_send_frame($frame) |
|
1360
|
0 |
0 |
if ($type eq 'domain') { } |
|
|
0 |
0 |
elsif ($type eq 'contact') { } |
|
|
0 |
0 |
elsif ($type eq 'host') { } |
|
1391
|
0 |
0 |
if ($secdns) |
|
1409
|
0 |
0 |
unless $disc |
|
1430
|
0 |
0 |
unless $child->nodeType == 1 |
|
1454
|
0 |
0 |
if $child->nodeType != 1 |
|
1457
|
0 |
0 |
if ($hash->{$tag}) { } |
|
1464
|
0 |
0 |
if ($namelist) |
|
1502
|
0 |
0 |
unless my $response = $self->_send_frame($frame) |
|
1503
|
0 |
0 |
if ($Net::EPP::Registry::Nominet::Code != 1000) |
|
1509
|
0 |
0 |
if $txt =~ /\./ |
|
1561
|
0 |
0 |
unless my $response = $self->_send_frame($frame) |
|
1562
|
0 |
0 |
if ($Net::EPP::Registry::Nominet::Code != 1000) |
|
1567
|
0 |
0 |
unless $node->nodeType == 1 |
|
1593
|
0 |
0 |
unless ($self->connected) |
|
1594
|
0 |
0 |
if $Debug |
|
1599
|
0 |
0 |
if $Debug > 1 |
|
1601
|
0 |
0 |
if $Debug > 1 and defined $greeting |
|
1604
|
0 |
0 |
unless ($greeting) |
|
1634
|
0 |
0 |
unless $type |
|
1636
|
0 |
0 |
if ($type eq "domain") |
|
1641
|
0 |
0 |
if ($type eq "domain-ext" or $type eq "domain-nom-ext") |
|
1646
|
0 |
0 |
if ($type eq "secDNS") |
|
1652
|
0 |
0 |
if ($type eq "contact") |
|
1657
|
0 |
0 |
if ($type eq "contact-ext" or $type eq "contact-nom-ext") |
|
1662
|
0 |
0 |
if ($type eq "contact-ext" or $type eq "contact-id") |
|
1667
|
0 |
0 |
if ($type eq "host") |
|
1672
|
0 |
0 |
if ($type eq "l") |
|
1677
|
0 |
0 |
if ($type eq "u") |
|
1682
|
0 |
0 |
if ($type eq "r") |
|
1687
|
0 |
0 |
if ($type eq "f") |
|
1692
|
0 |
0 |
if ($type eq "tag") |
|
1713
|
0 |
0 |
unless my $phone = shift() |
|
1714
|
0 |
0 |
unless ($phone =~ /^\+\d{1,3}\.[0-9x]+$/) |
|
1748
|
0 |
0 |
if $num == 38 or $num == 60 |
|
1791
|
0 |
0 |
$reasonnode ? : |
|
1805
|
0 |
0 |
unless $debug =~ /^\d+$/ |
|
1807
|
0 |
0 |
$Debug > 1 ? : |
|
1814
|
0 |
0 |
if $Debug > 1 |
|
1816
|
0 |
0 |
unless (defined $response) |
|
1823
|
0 |
0 |
if ($self->{'reconnect'}) |
|
1827
|
0 |
0 |
if $self->_go_connect |
|
1828
|
0 |
0 |
if ($self->{'authenticated'}) |
|
1838
|
0 |
0 |
if $Debug > 1 |
|
1841
|
0 |
0 |
if ($Net::EPP::Registry::Nominet::Code < 1000 or $Net::EPP::Registry::Nominet::Code > 1999) { } |
|
1843
|
0 |
0 |
if $Debug |
|
1847
|
0 |
0 |
$reason->$#* >= 0 ? : |