| line |
true |
false |
branch |
|
199
|
0 |
0 |
if (exists $params{'load_config'}) |
|
202
|
0 |
0 |
if $load_config |
|
205
|
0 |
0 |
defined $params{'port'} && int $params{'port'} > 0 ? : |
|
206
|
0 |
0 |
$params{'no_ssl'} ? : |
|
213
|
0 |
0 |
defined $params{'debug'} ? : |
|
214
|
0 |
0 |
defined $params{'timeout'} && int $params{'timeout'} > 0 ? : |
|
215
|
0 |
0 |
defined $params{'reconnect'} ? : |
|
217
|
0 |
0 |
exists $params{'connect'} ? : |
|
218
|
0 |
0 |
exists $params{'login'} ? : |
|
236
|
0 |
0 |
if ($self->{'connect'}) { } |
|
237
|
0 |
0 |
$self->_connect($self->{'login'}) ? : |
|
252
|
0 |
0 |
if (not $@) |
|
256
|
0 |
0 |
if (-e $rcfile) |
|
260
|
0 |
0 |
if (not defined $params_ref->{'host'} and $config->param("default.default")) |
|
265
|
0 |
0 |
if (not defined $params_ref->{'debug'} and $config->param("default.debug")) |
|
274
|
0 |
0 |
unless defined $params_ref->{$key} |
|
285
|
0 |
0 |
if defined $self->{'ssl'} and defined $self->{'ciphers'} |
|
287
|
0 |
0 |
if (defined $self->{'key'} and defined $self->{'cert'} and defined $self->{'ssl'}) |
|
294
|
0 |
0 |
if (defined $self->{'ssl'} and defined $self->{'verify'}) { } |
|
|
0 |
0 |
elsif (defined $self->{'ssl'}) { } |
|
310
|
0 |
0 |
if ($@ ne '') { } |
|
321
|
0 |
0 |
if (ref $self->{'greeting'} ne 'Net::EPP::Frame::Response') { } |
|
334
|
0 |
0 |
if ($login) { } |
|
350
|
0 |
0 |
if (not $response) { } |
|
360
|
0 |
0 |
if ($Code > 1999) { } |
|
390
|
0 |
0 |
if ($self->{'stdext'}) { } |
|
|
0 |
0 |
elsif ($self->{'extensions'}) { } |
|
405
|
0 |
0 |
if ($self->{'login_security'} or $self->server_has_extension($loginSecXMLNS)) { } |
|
406
|
0 |
0 |
unless &any(sub {
$loginSecXMLNS eq $_;
}
, @extensions) |
|
431
|
0 |
0 |
if ($self->{'newPW'}) |
|
446
|
0 |
0 |
if ($self->{'newPW'}) |
|
457
|
0 |
0 |
if $self->{'stdobj'} |
|
458
|
0 |
0 |
unless $objects |
|
461
|
0 |
0 |
if (scalar @extensions > 0) |
|
515
|
0 |
0 |
if ($type eq 'domain') { } |
|
|
0 |
0 |
elsif ($type eq 'contact') { } |
|
|
0 |
0 |
elsif ($type eq 'host') { } |
|
534
|
0 |
0 |
if (not $response) { } |
|
541
|
0 |
0 |
if ($Code > 1999) { } |
|
548
|
0 |
0 |
if ($type eq 'domain' or $type eq 'host') { } |
|
|
0 |
0 |
elsif ($type eq 'contact') { } |
|
592
|
0 |
0 |
if ref $result ne "HASH" or not $follow |
|
594
|
0 |
0 |
if (defined $result->{'ns'} and ref $result->{'ns'} eq "ARRAY") |
|
597
|
0 |
0 |
if ref $info eq "HASH" |
|
601
|
0 |
0 |
if (defined $result->{'hosts'} and ref $result->{'hosts'} eq "ARRAY") |
|
604
|
0 |
0 |
if ref $info eq "HASH" |
|
609
|
0 |
0 |
if ref $info eq "HASH" |
|
613
|
0 |
0 |
if ref $info eq "HASH" |
|
667
|
0 |
0 |
if ($type eq 'domain') { } |
|
|
0 |
0 |
elsif ($type eq 'contact') { } |
|
|
0 |
0 |
elsif ($type eq 'host') { } |
|
685
|
0 |
0 |
if (defined $authInfo and $authInfo ne "") |
|
690
|
0 |
0 |
if $type eq "contact" and $opt |
|
697
|
0 |
0 |
if (not $response) { } |
|
704
|
0 |
0 |
if ($Code > 1999) { } |
|
720
|
0 |
0 |
if ($type eq 'domain') { } |
|
|
0 |
0 |
elsif ($type eq 'contact') { } |
|
|
0 |
0 |
elsif ($type eq 'host') { } |
|
747
|
0 |
0 |
if $els->size > 0 |
|
822
|
0 |
0 |
if (ref $hash->{'contacts'}{$type} eq 'STRING') { } |
|
|
0 |
0 |
elsif (ref $hash->{'contacts'}{$type} eq 'ARRAY') { } |
|
836
|
0 |
0 |
if ($ns->size == 1) |
|
861
|
0 |
0 |
if ($auths->size == 1) |
|
864
|
0 |
0 |
if $pw->size == 1 |
|
867
|
0 |
0 |
if (defined $secinfo) |
|
868
|
0 |
0 |
if (my $maxSigLife = $secinfo->getElementsByLocalName("maxSigLife")) |
|
969
|
0 |
0 |
if ($els->size > 0) |
|
977
|
0 |
0 |
if (defined $els and $els->size == 1) |
|
979
|
0 |
0 |
if (defined $el) |
|
981
|
0 |
0 |
if defined $el->getAttribute("x") and $el->getAttribute("x") ne "" |
|
992
|
0 |
0 |
if $els->size == 1 |
|
996
|
0 |
0 |
if ($addrs->size == 1) |
|
999
|
0 |
0 |
if 1 != $child->nodeType |
|
1000
|
0 |
0 |
if ($child->localName eq 'street') { } |
|
1014
|
0 |
0 |
if ($auths->size == 1) |
|
1017
|
0 |
0 |
if $pw->size == 1 |
|
1070
|
0 |
0 |
if ($@ or ref $frame ne $class) { } |
|
1077
|
0 |
0 |
if ($type eq 'domain') { } |
|
|
0 |
0 |
elsif ($type eq 'contact') { } |
|
1079
|
0 |
0 |
if $op eq "request" |
|
1086
|
0 |
0 |
if ($op eq "request" or $op eq "query") |
|
1087
|
0 |
0 |
if $authInfo ne "" |
|
1094
|
0 |
0 |
if (not $response) { } |
|
1101
|
0 |
0 |
if ($Code > 1999) { } |
|
|
0 |
0 |
elsif ($op eq 'query' or $op eq 'request') { } |
|
1228
|
0 |
0 |
if defined $domain->{'period'} and $domain->{'period'} > 0 |
|
1229
|
0 |
0 |
if $domain->{'ns'} and @{$domain->{'ns'};} |
|
1230
|
0 |
0 |
if defined $domain->{'registrant'} and $domain->{'registrant'} ne "" |
|
1232
|
0 |
0 |
if defined $domain->{'authInfo'} and $domain->{'authInfo'} ne "" |
|
1234
|
0 |
0 |
if ($domain->{'ttl'} and $self->server_has_extension("Net::EPP::Frame::ObjectSpec"->xmlns("ttl"))) |
|
1272
|
0 |
0 |
if ($host->{'ttl'} and $self->server_has_extension("Net::EPP::Frame::ObjectSpec"->xmlns("ttl"))) |
|
1292
|
0 |
0 |
if (ref $contact->{'postalInfo'} eq "HASH") |
|
1298
|
0 |
0 |
if defined $contact->{'voice'} and $contact->{'voice'} ne "" |
|
1299
|
0 |
0 |
if defined $contact->{'fax'} and $contact->{'fax'} ne "" |
|
1301
|
0 |
0 |
if defined $contact->{'authInfo'} and $contact->{'authInfo'} ne "" |
|
1303
|
0 |
0 |
if (ref $contact->{'status'} eq "ARRAY") |
|
1315
|
0 |
0 |
unless $response |
|
1320
|
0 |
0 |
if ($Code > 1999) |
|
1499
|
0 |
0 |
unless (exists $frame_generator{$type}) |
|
1516
|
0 |
0 |
if (exists $info->{'add'} and ref $info->{'add'} eq "HASH") |
|
1521
|
0 |
0 |
if (exists $add->{'ns'} and ref $add->{'ns'} eq "ARRAY") |
|
1526
|
0 |
0 |
if (exists $add->{'contacts'} and ref $add->{'contacts'} eq "HASH") |
|
1535
|
0 |
0 |
if (exists $add->{'status'} and ref $add->{'status'}) |
|
1536
|
0 |
0 |
if (ref $add->{'status'} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $add->{'status'} eq 'ARRAY') { } |
|
1547
|
0 |
0 |
if (exists $info->{'rem'} and ref $info->{'rem'} eq "HASH") |
|
1552
|
0 |
0 |
if (exists $rem->{'ns'} and ref $rem->{'ns'} eq "ARRAY") |
|
1557
|
0 |
0 |
if (exists $rem->{'contacts'} and ref $rem->{'contacts'} eq "HASH") |
|
1566
|
0 |
0 |
if (exists $rem->{'status'} and ref $rem->{'status'} eq "ARRAY") |
|
1572
|
0 |
0 |
if (exists $info->{'chg'} and ref $info->{'chg'} eq "HASH") |
|
1576
|
0 |
0 |
if (defined $chg->{'registrant'}) |
|
1580
|
0 |
0 |
if (defined $chg->{'authInfo'}) |
|
1584
|
0 |
0 |
if (defined $chg->{'ttl'} and $self->server_has_extension("Net::EPP::Frame::ObjectSpec"->xmlns("ttl"))) |
|
1600
|
0 |
0 |
if (exists $info->{'add'} and ref $info->{'add'} eq "HASH") |
|
1603
|
0 |
0 |
if (exists $add->{'status'} and ref $add->{'status'}) |
|
1604
|
0 |
0 |
if (ref $add->{'status'} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $add->{'status'} eq 'ARRAY') { } |
|
1615
|
0 |
0 |
if (exists $info->{'rem'} and ref $info->{'rem'} eq "HASH") |
|
1619
|
0 |
0 |
if (exists $rem->{'status'} and ref $rem->{'status'} eq "ARRAY") |
|
1625
|
0 |
0 |
if (exists $info->{'chg'} and ref $info->{'chg'} eq "HASH") |
|
1630
|
0 |
0 |
if (ref $chg->{'postalInfo'} eq "HASH") |
|
1638
|
0 |
0 |
if (defined $chg->{$contact_type}) |
|
1646
|
0 |
0 |
if ($chg->{'authInfo'}) |
|
1662
|
0 |
0 |
if (exists $info->{'add'} and ref $info->{'add'} eq "HASH") |
|
1666
|
0 |
0 |
if (exists $add->{'addrs'} and ref $add->{'addrs'} eq "ARRAY") |
|
1671
|
0 |
0 |
if (exists $add->{'status'} and ref $add->{'status'}) |
|
1672
|
0 |
0 |
if (ref $add->{'status'} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $add->{'status'} eq 'ARRAY') { } |
|
1682
|
0 |
0 |
if (exists $info->{'rem'} and ref $info->{'rem'} eq "HASH") |
|
1686
|
0 |
0 |
if (exists $rem->{'addrs'} and ref $rem->{'addrs'} eq "ARRAY") |
|
1691
|
0 |
0 |
if (exists $rem->{'status'} and ref $rem->{'status'}) |
|
1692
|
0 |
0 |
if (ref $rem->{'status'} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $rem->{'status'} eq 'ARRAY') { } |
|
1702
|
0 |
0 |
if (exists $info->{'chg'} and ref $info->{'chg'} eq "HASH") |
|
1703
|
0 |
0 |
if ($info->{'chg'}{'name'}) |
|
1708
|
0 |
0 |
if (exists $info->{'chg'} and ref $info->{'chg'} eq "HASH") |
|
1709
|
0 |
0 |
if ($info->{'chg'}{'name'}) |
|
1713
|
0 |
0 |
if (defined $info->{'chg'}{'ttl'} and $self->server_has_extension("Net::EPP::Frame::ObjectSpec"->xmlns("ttl"))) |
|
1763
|
0 |
0 |
if ($type eq 'domain') { } |
|
|
0 |
0 |
elsif ($type eq 'contact') { } |
|
|
0 |
0 |
elsif ($type eq 'host') { } |
|
1783
|
0 |
0 |
if (not $response) { } |
|
1790
|
0 |
0 |
if ($Code > 1999) { } |
|
1830
|
0 |
0 |
if $info->{'period'} |
|
1874
|
0 |
0 |
if (UNIVERSAL::isa($response, 'XML::LibXML::Document')) { } |
|
1889
|
0 |
0 |
if ($self->{'reconnect'} > 0) { } |
|
1891
|
0 |
0 |
if (not $self->ping) { } |
|
1895
|
0 |
0 |
if ($self->_connect) { } |
|
1943
|
0 |
0 |
if (not $self->connected) { } |
|
|
0 |
0 |
elsif (not $frame) { } |
|
1956
|
0 |
0 |
if UNIVERSAL::isa($frame, "Net::EPP::Frame::Command") |
|
1959
|
0 |
0 |
if ($frame =~ m[^/]) { } |
|
1967
|
0 |
0 |
if (UNIVERSAL::isa($frame, 'XML::LibXML::Document')) { } |
|
1977
|
0 |
0 |
if UNIVERSAL::isa($response, "XML::LibXML::Document") |
|
1994
|
0 |
0 |
if (not $self->connected) { } |
|
2011
|
0 |
0 |
if ($@ ne '') { } |
|
2017
|
0 |
0 |
if ($@ =~ /^timeout/) { } |
|
2035
|
0 |
0 |
if (not $self->connected) { } |
|
2055
|
0 |
0 |
if ($message) |
|
2060
|
0 |
0 |
if ($reason) |
|
2069
|
0 |
0 |
if ($doc->isa("XML::DOM::Document") or $doc->isa("Net::EPP::Frame::Response")) |
|
2071
|
0 |
0 |
if (defined $els) |
|
2073
|
0 |
0 |
if defined $el |
|
2081
|
0 |
0 |
if ($doc->isa("XML::DOM::Document") or $doc->isa("Net::EPP::Frame::Response")) |
|
2083
|
0 |
0 |
if (defined $msgs) |
|
2085
|
0 |
0 |
if defined $msg |
|
2093
|
0 |
0 |
if ($doc->isa("XML::DOM::Document") or $doc->isa("Net::EPP::Frame::Response")) |
|
2095
|
0 |
0 |
if (defined $reasons) |
|
2097
|
0 |
0 |
if (defined $reason) |
|
2107
|
0 |
0 |
if ($self->authenticated) |
|
2111
|
0 |
0 |
if (not $response) { } |
|
2130
|
0 |
0 |
if $self->connected |
|
2137
|
0 |
0 |
if defined $self->{'debug'} and $self->{'debug'} == 1 |
|
2153
|
0 |
0 |
unless ($self->greeting) |
|
2159
|
0 |
0 |
if $objURI->textContent eq $xmlns |
|
2168
|
0 |
0 |
unless ($self->greeting) |
|
2174
|
0 |
0 |
if $extURI->textContent eq $xmlns |