| line |
!l |
l&&!r |
l&&r |
condition |
|
157
|
1 |
0 |
0 |
$params{'test'} and $params{'test'} == 1 |
|
|
0 |
0 |
1 |
$params{'ote'} and $params{'ote'} == 1 |
|
159
|
0 |
0 |
0 |
$params{'testssl'} and $params{'testssl'} == 1 |
|
169
|
1 |
0 |
0 |
$params{'testssl'} and $params{'testssl'} == 1 |
|
194
|
1 |
0 |
0 |
$params{'ssl'} and $params{'ciphers'} |
|
207
|
0 |
0 |
0 |
$years > 0 and $years < 11 |
|
225
|
0 |
0 |
0 |
defined $params{'login'} and $params{'login'} == 0 |
|
415
|
0 |
0 |
0 |
$Debug and defined $count |
|
455
|
0 |
0 |
0 |
ref $renew and ref $renew eq "HASH" |
|
473
|
0 |
0 |
0 |
defined $expiry and $expiry =~ /^2\d\d\d-\d\d-\d\d$/ |
|
476
|
0 |
0 |
0 |
$dominfo->{'exDate'} and $dominfo->{'exDate'} =~ /^2\d\d\d-\d\d-\d\d/ |
|
590
|
0 |
0 |
0 |
$Net::EPP::Registry::Nominet::Code > 999 and $Net::EPP::Registry::Nominet::Code < 1002 |
|
655
|
0 |
0 |
0 |
$contyes and $contyes == 1 |
|
785
|
0 |
0 |
0 |
do {
not $self->valid_voice($contact->{'voice'})
} && do {
$Net::EPP::Registry::Nominet::Error = "Bad phone number $contact->{'voice'} should be +NNN.NNNNNNNNNN";
return undef
} |
|
955
|
0 |
0 |
0 |
$action ne "chg" and $data->{$action}{'ns'} |
|
1141
|
0 |
0 |
0 |
defined $data->{'voice'} and not $self->valid_voice($data->{'voice'}) |
|
1154
|
0 |
0 |
0 |
$#flags > 0 and $flags[0] != $flags[1] |
|
1609
|
0 |
0 |
0 |
$Debug > 1 and defined $greeting |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
187
|
0 |
0 |
0 |
$params{'SSL_ca_file'} ||= $params{'ca_file'} |
|
188
|
0 |
0 |
0 |
$params{'SSL_ca_path'} ||= $params{'ca_path'} |
|
395
|
0 |
0 |
0 |
$type eq "domain" or $type eq "contact" |
|
|
0 |
0 |
0 |
$type eq "domain" or $type eq "contact" or $type eq "host" |
|
488
|
0 |
0 |
0 |
$years ||= $self->{'def_years'} |
|
672
|
0 |
0 |
0 |
$years ||= $self->{'def_years'} |
|
782
|
0 |
0 |
0 |
$contact->{'id'} ||= $self->random_id |
|
1649
|
0 |
0 |
0 |
$type eq "domain-ext" or $type eq "domain-nom-ext" |
|
1665
|
0 |
0 |
0 |
$type eq "contact-ext" or $type eq "contact-nom-ext" |
|
1670
|
0 |
0 |
0 |
$type eq "contact-ext" or $type eq "contact-id" |
|
1755
|
0 |
0 |
0 |
$num == 38 or $num == 60 |
|
1848
|
0 |
0 |
0 |
$Net::EPP::Registry::Nominet::Code < 1000 or $Net::EPP::Registry::Nominet::Code > 1999 |