| line |
true |
false |
branch |
|
247
|
0 |
0 |
defined $params{'load_config'} ? : |
|
248
|
0 |
0 |
if $load_config |
|
250
|
0 |
0 |
defined $params{'port'} && int $params{'port'} > 0 ? : |
|
251
|
0 |
0 |
$params{'no_ssl'} ? : |
|
258
|
0 |
0 |
defined $params{'debug'} ? : |
|
259
|
0 |
0 |
defined $params{'timeout'} && int $params{'timeout'} > 0 ? : |
|
260
|
0 |
0 |
defined $params{'reconnect'} ? : |
|
263
|
0 |
0 |
exists $params{'connect'} ? : |
|
264
|
0 |
0 |
exists $params{'login'} ? : |
|
282
|
0 |
0 |
if ($self->{'connect'}) { } |
|
283
|
0 |
0 |
$self->_connect($self->{'login'}) ? : |
|
295
|
0 |
0 |
if (not $@) |
|
298
|
0 |
0 |
if (-e $rcfile) |
|
302
|
0 |
0 |
if (not defined $params_ref->{'host'} and $config->param("default.default")) |
|
307
|
0 |
0 |
if (not defined $params_ref->{'debug'} and $config->param("default.debug")) |
|
316
|
0 |
0 |
unless defined $params_ref->{$key} |
|
327
|
0 |
0 |
if defined $self->{'ssl'} and defined $self->{'ciphers'} |
|
329
|
0 |
0 |
if (defined $self->{'key'} and defined $self->{'cert'} and defined $self->{'ssl'}) |
|
336
|
0 |
0 |
if (defined $self->{'ssl'} and defined $self->{'verify'}) { } |
|
|
0 |
0 |
elsif (defined $self->{'ssl'}) { } |
|
352
|
0 |
0 |
if ($@ ne '') { } |
|
365
|
0 |
0 |
if (ref $self->{'greeting'} ne 'Net::EPP::Frame::Response') { } |
|
378
|
0 |
0 |
if ($login) { } |
|
394
|
0 |
0 |
if (not $response) { } |
|
404
|
0 |
0 |
if ($Code > 1999) { } |
|
434
|
0 |
0 |
if ($self->{'stdext'}) { } |
|
|
0 |
0 |
elsif ($self->{'extensions'}) { } |
|
447
|
0 |
0 |
if ($self->{'login_security'} or &any(sub {
'urn:ietf:params:xml:ns:epp:loginSec-1.0' eq $_;
}
, @extensions)) { } |
|
448
|
0 |
0 |
unless &any(sub {
"urn:ietf:params:xml:ns:epp:loginSec-1.0" eq $_;
}
, @extensions) |
|
473
|
0 |
0 |
if ($self->{'newPW'}) |
|
491
|
0 |
0 |
if ($self->{'newPW'}) |
|
503
|
0 |
0 |
if $self->{'stdobj'} |
|
504
|
0 |
0 |
unless $objects |
|
507
|
0 |
0 |
if (scalar @extensions > 0) |
|
562
|
0 |
0 |
if ($type eq 'domain') { } |
|
|
0 |
0 |
elsif ($type eq 'contact') { } |
|
|
0 |
0 |
elsif ($type eq 'host') { } |
|
581
|
0 |
0 |
if (not $response) { } |
|
588
|
0 |
0 |
if ($Code > 1999) { } |
|
595
|
0 |
0 |
if ($type eq 'domain' or $type eq 'host') { } |
|
|
0 |
0 |
elsif ($type eq 'contact') { } |
|
639
|
0 |
0 |
if ref $result ne "HASH" or not $follow |
|
641
|
0 |
0 |
if (defined $result->{'ns'} and ref $result->{'ns'} eq "ARRAY") |
|
644
|
0 |
0 |
if ref $info eq "HASH" |
|
648
|
0 |
0 |
if (defined $result->{'hosts'} and ref $result->{'hosts'} eq "ARRAY") |
|
651
|
0 |
0 |
if ref $info eq "HASH" |
|
656
|
0 |
0 |
if ref $info eq "HASH" |
|
660
|
0 |
0 |
if ref $info eq "HASH" |
|
713
|
0 |
0 |
if ($type eq 'domain') { } |
|
|
0 |
0 |
elsif ($type eq 'contact') { } |
|
|
0 |
0 |
elsif ($type eq 'host') { } |
|
731
|
0 |
0 |
if (defined $authInfo and $authInfo ne "") |
|
736
|
0 |
0 |
if $type eq "contact" and $opt |
|
743
|
0 |
0 |
if (not $response) { } |
|
750
|
0 |
0 |
if ($Code > 1999) { } |
|
766
|
0 |
0 |
if ($type eq 'domain') { } |
|
|
0 |
0 |
elsif ($type eq 'contact') { } |
|
|
0 |
0 |
elsif ($type eq 'host') { } |
|
792
|
0 |
0 |
if $els->size > 0 |
|
876
|
0 |
0 |
if (ref $hash->{'contacts'}{$type} eq 'STRING') { } |
|
|
0 |
0 |
elsif (ref $hash->{'contacts'}{$type} eq 'ARRAY') { } |
|
890
|
0 |
0 |
if ($ns->size == 1) |
|
915
|
0 |
0 |
if ($auths->size == 1) |
|
918
|
0 |
0 |
if $pw->size == 1 |
|
921
|
0 |
0 |
if (defined $secinfo) |
|
922
|
0 |
0 |
if (my $maxSigLife = $secinfo->getElementsByLocalName("maxSigLife")) |
|
1036
|
0 |
0 |
if ($els->size > 0) |
|
1044
|
0 |
0 |
if (defined $els and $els->size == 1) |
|
1046
|
0 |
0 |
if (defined $el) |
|
1048
|
0 |
0 |
if defined $el->getAttribute("x") and $el->getAttribute("x") ne "" |
|
1059
|
0 |
0 |
if $els->size == 1 |
|
1063
|
0 |
0 |
if ($addrs->size == 1) |
|
1066
|
0 |
0 |
if 1 != $child->nodeType |
|
1067
|
0 |
0 |
if ($child->localName eq 'street') { } |
|
1081
|
0 |
0 |
if ($auths->size == 1) |
|
1084
|
0 |
0 |
if $pw->size == 1 |
|
1137
|
0 |
0 |
if ($@ or ref $frame ne $class) { } |
|
1144
|
0 |
0 |
if ($type eq 'domain') { } |
|
|
0 |
0 |
elsif ($type eq 'contact') { } |
|
1146
|
0 |
0 |
if $op eq "request" |
|
1153
|
0 |
0 |
if ($op eq "request" or $op eq "query") |
|
1154
|
0 |
0 |
if $authInfo ne "" |
|
1162
|
0 |
0 |
if (not $response) { } |
|
1169
|
0 |
0 |
if ($Code > 1999) { } |
|
|
0 |
0 |
elsif ($op eq 'query' or $op eq 'request') { } |
|
1301
|
0 |
0 |
if defined $domain->{'period'} and $domain->{'period'} > 0 |
|
1302
|
0 |
0 |
if $domain->{'ns'} and @{$domain->{'ns'};} |
|
1303
|
0 |
0 |
if defined $domain->{'registrant'} and $domain->{'registrant'} ne "" |
|
1305
|
0 |
0 |
if defined $domain->{'authInfo'} and $domain->{'authInfo'} ne "" |
|
1359
|
0 |
0 |
if (ref $contact->{'postalInfo'} eq "HASH") |
|
1370
|
0 |
0 |
if defined $contact->{'voice'} and $contact->{'voice'} ne "" |
|
1371
|
0 |
0 |
if defined $contact->{'fax'} and $contact->{'fax'} ne "" |
|
1373
|
0 |
0 |
if defined $contact->{'authInfo'} and $contact->{'authInfo'} ne "" |
|
1375
|
0 |
0 |
if (ref $contact->{'status'} eq "ARRAY") |
|
1388
|
0 |
0 |
unless $response |
|
1393
|
0 |
0 |
if ($Code > 1999) |
|
1576
|
0 |
0 |
unless (exists $frame_generator{$type}) |
|
1594
|
0 |
0 |
if (exists $info->{'add'} and ref $info->{'add'} eq "HASH") |
|
1599
|
0 |
0 |
if (exists $add->{'ns'} and ref $add->{'ns'} eq "ARRAY") |
|
1604
|
0 |
0 |
if (exists $add->{'contacts'} and ref $add->{'contacts'} eq "HASH") |
|
1613
|
0 |
0 |
if (exists $add->{'status'} and ref $add->{'status'}) |
|
1614
|
0 |
0 |
if (ref $add->{'status'} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $add->{'status'} eq 'ARRAY') { } |
|
1626
|
0 |
0 |
if (exists $info->{'rem'} and ref $info->{'rem'} eq "HASH") |
|
1631
|
0 |
0 |
if (exists $rem->{'ns'} and ref $rem->{'ns'} eq "ARRAY") |
|
1636
|
0 |
0 |
if (exists $rem->{'contacts'} and ref $rem->{'contacts'} eq "HASH") |
|
1645
|
0 |
0 |
if (exists $rem->{'status'} and ref $rem->{'status'} eq "ARRAY") |
|
1651
|
0 |
0 |
if (exists $info->{'chg'} and ref $info->{'chg'} eq "HASH") |
|
1655
|
0 |
0 |
if (defined $chg->{'registrant'}) |
|
1659
|
0 |
0 |
if (defined $chg->{'authInfo'}) |
|
1675
|
0 |
0 |
if (exists $info->{'add'} and ref $info->{'add'} eq "HASH") |
|
1678
|
0 |
0 |
if (exists $add->{'status'} and ref $add->{'status'}) |
|
1679
|
0 |
0 |
if (ref $add->{'status'} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $add->{'status'} eq 'ARRAY') { } |
|
1691
|
0 |
0 |
if (exists $info->{'rem'} and ref $info->{'rem'} eq "HASH") |
|
1695
|
0 |
0 |
if (exists $rem->{'status'} and ref $rem->{'status'} eq "ARRAY") |
|
1701
|
0 |
0 |
if (exists $info->{'chg'} and ref $info->{'chg'} eq "HASH") |
|
1706
|
0 |
0 |
if (ref $chg->{'postalInfo'} eq "HASH") |
|
1719
|
0 |
0 |
if (defined $chg->{$contact_type}) |
|
1727
|
0 |
0 |
if ($chg->{'authInfo'}) |
|
1743
|
0 |
0 |
if (exists $info->{'add'} and ref $info->{'add'} eq "HASH") |
|
1746
|
0 |
0 |
if (exists $add->{'addrs'} and ref $add->{'addrs'} eq "ARRAY") |
|
1750
|
0 |
0 |
if (exists $add->{'status'} and ref $add->{'status'}) |
|
1751
|
0 |
0 |
if (ref $add->{'status'} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $add->{'status'} eq 'ARRAY') { } |
|
1762
|
0 |
0 |
if (exists $info->{'rem'} and ref $info->{'rem'} eq "HASH") |
|
1765
|
0 |
0 |
if (exists $rem->{'addrs'} and ref $rem->{'addrs'} eq "ARRAY") |
|
1769
|
0 |
0 |
if (exists $rem->{'status'} and ref $rem->{'status'}) |
|
1770
|
0 |
0 |
if (ref $rem->{'status'} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $rem->{'status'} eq 'ARRAY') { } |
|
1781
|
0 |
0 |
if (exists $info->{'chg'} and ref $info->{'chg'} eq "HASH") |
|
1782
|
0 |
0 |
if ($info->{'chg'}{'name'}) |
|
1833
|
0 |
0 |
if ($type eq 'domain') { } |
|
|
0 |
0 |
elsif ($type eq 'contact') { } |
|
|
0 |
0 |
elsif ($type eq 'host') { } |
|
1854
|
0 |
0 |
if (not $response) { } |
|
1861
|
0 |
0 |
if ($Code > 1999) { } |
|
1905
|
0 |
0 |
if $info->{'period'} |
|
1946
|
0 |
0 |
if (UNIVERSAL::isa($response, 'XML::LibXML::Document')) { } |
|
1961
|
0 |
0 |
if ($self->{'reconnect'} > 0) { } |
|
1963
|
0 |
0 |
if (not $self->ping) { } |
|
1967
|
0 |
0 |
if ($self->_connect) { } |
|
2014
|
0 |
0 |
if (not $self->connected) { } |
|
|
0 |
0 |
elsif (not $frame) { } |
|
2027
|
0 |
0 |
if UNIVERSAL::isa($frame, "Net::EPP::Frame::Command") |
|
2030
|
0 |
0 |
if ($frame =~ m[^/]) { } |
|
2038
|
0 |
0 |
if (UNIVERSAL::isa($frame, 'XML::LibXML::Document')) { } |
|
2048
|
0 |
0 |
if UNIVERSAL::isa($response, "XML::LibXML::Document") |
|
2065
|
0 |
0 |
if (not $self->connected) { } |
|
2082
|
0 |
0 |
if ($@ ne '') { } |
|
2088
|
0 |
0 |
if ($@ =~ /^timeout/) { } |
|
2106
|
0 |
0 |
if (not $self->connected) { } |
|
2126
|
0 |
0 |
if ($message) |
|
2131
|
0 |
0 |
if ($reason) |
|
2140
|
0 |
0 |
if ($doc->isa("XML::DOM::Document") or $doc->isa("Net::EPP::Frame::Response")) |
|
2142
|
0 |
0 |
if (defined $els) |
|
2144
|
0 |
0 |
if defined $el |
|
2152
|
0 |
0 |
if ($doc->isa("XML::DOM::Document") or $doc->isa("Net::EPP::Frame::Response")) |
|
2154
|
0 |
0 |
if (defined $msgs) |
|
2156
|
0 |
0 |
if defined $msg |
|
2164
|
0 |
0 |
if ($doc->isa("XML::DOM::Document") or $doc->isa("Net::EPP::Frame::Response")) |
|
2166
|
0 |
0 |
if (defined $reasons) |
|
2168
|
0 |
0 |
if (defined $reason) |
|
2178
|
0 |
0 |
if ($self->authenticated) |
|
2182
|
0 |
0 |
if (not $response) { } |
|
2202
|
0 |
0 |
if $self->connected |
|
2209
|
0 |
0 |
if defined $self->{'debug'} and $self->{'debug'} == 1 |