| line |
true |
false |
branch |
|
203
|
1 |
0 |
unless ($server_addr) |
|
205
|
1 |
0 |
if $a |
|
207
|
0 |
1 |
unless $server_addr |
|
209
|
0 |
1 |
unless my $sock = 'IO::Socket::INET'->new('PeerAddr', $server_addr, 'PeerPort', 'whois', 'Proto', 'tcp') |
|
225
|
1 |
0 |
if (eval {
do {
require Locale::Country
}
}) { } |
|
228
|
0 |
0 |
if $_[0] =~ /^[^\W\d_]{2}$/i |
|
234
|
1 |
0 |
@_ ? : |
|
235
|
0 |
1 |
unless @_ == 1 |
|
250
|
1 |
0 |
if defined $target_server |
|
258
|
0 |
1 |
unless $text |
|
260
|
0 |
1 |
if ($text =~ /single out one record/) |
|
261
|
0 |
0 |
unless $text =~ /\((.+?)\)[ \t]+\Q$domain\E\x0d?\x0a/i |
|
269
|
0 |
0 |
unless $text |
|
289
|
0 |
1 |
if ($t eq '') |
|
294
|
0 |
1 |
if (/Registrant/) { } |
|
|
1 |
0 |
elsif (/No match/) { } |
|
300
|
0 |
1 |
if ($info{'MATCH'}) |
|
301
|
0 |
0 |
unless @info{'NAME', 'TAG'} = $t =~ /^(.*)\s+\((\S+)\)$/ |
|
307
|
0 |
0 |
if (not defined $t) { } |
|
|
0 |
0 |
elsif ($t =~ /^(?:usa|u\.\s*s\.\s*a\.)$/i) { } |
|
|
0 |
0 |
elsif (code2country($t)) { } |
|
|
0 |
0 |
elsif ($c = country2code($t)) { } |
|
|
0 |
0 |
elsif ($t =~ /,\s*([^,]+?)(?:\s+\d{5}(?:-\d{4})?)?$/) { } |
|
319
|
0 |
0 |
$US_State{uc $1} ? : |
|
328
|
0 |
0 |
if $t =~ /^$/ |
|
329
|
0 |
0 |
if ($t =~ s/^domain name:\s+(\S+)$//i) { } |
|
|
0 |
0 |
elsif ($t =~ /contact.*:$/i) { } |
|
|
0 |
0 |
elsif ($t =~ /^Record created on (\S+)\.$/) { } |
|
|
0 |
0 |
elsif ($t =~ /^Record last updated on (\S+)\.$/) { } |
|
|
0 |
0 |
elsif ($t =~ /^Domain servers/i) { } |
|
336
|
0 |
0 |
if $text[0] =~ /contact.*:$/i |
|
346
|
0 |
0 |
unless $text[0] |
|
358
|
0 |
1 |
if ($@) { } |
|
386
|
0 |
0 |
wantarray ? : |