| line |
true |
false |
branch |
|
12
|
1 |
0 |
if (eval {
do {
require Locale::Country
}
}) { } |
|
15
|
0 |
0 |
if $_[1] =~ /^[^\W\d_]{2}$/i |
|
25
|
0 |
0 |
unless @_ |
|
36
|
0 |
0 |
if ($$opt{'debug'}) |
|
53
|
0 |
0 |
if $self->debug |
|
55
|
0 |
0 |
if defined $self->TLDs->{$tld} |
|
57
|
0 |
0 |
if $self->debug |
|
59
|
0 |
0 |
unless ($$self{'base_server_name'}) |
|
67
|
0 |
0 |
if ($self->TLDModel->{$tld} eq 'thick') |
|
79
|
0 |
0 |
if ($$self{'base_server_name'} eq 'whois.publicinterestregistry.net') { } |
|
87
|
0 |
0 |
if $self->debug |
|
90
|
0 |
0 |
if ($t =~ /^No match for \".*\"/i) { } |
|
|
0 |
0 |
elsif ($t =~ /Whois Server: (\S+)/) { } |
|
|
0 |
0 |
elsif ($t =~ /Name Server: (\S+)/) { } |
|
92
|
0 |
0 |
if $self->debug |
|
97
|
0 |
0 |
if $self->debug |
|
98
|
0 |
0 |
if $self->debug |
|
102
|
0 |
0 |
if $self->debug |
|
108
|
0 |
0 |
if ($$self{'whois_referral'}) { } |
|
109
|
0 |
0 |
if $self->debug |
|
116
|
0 |
0 |
unless ($ref) |
|
121
|
0 |
0 |
if $self->debug |
|
129
|
0 |
0 |
if $self->debug |
|
140
|
0 |
0 |
if $self->debug |
|
141
|
0 |
0 |
if $self->debug |