line |
true |
false |
branch |
19
|
3 |
0 |
unless defined $args{'referral'} and not $args{'referral'} |
21
|
0 |
3 |
unless ($args{'query'} and $args{'event'}) |
26
|
2 |
1 |
unless ($args{'host'}) |
31
|
0 |
2 |
if ($args{'query'} =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ and scalar grep(($_ >= 0 && $_ <= 255), split(/\./, $args{'query'}, 0)) == 4) |
37
|
0 |
0 |
unless ($whois_server) |
44
|
0 |
2 |
if ($args{'query'} =~ /:/) |
50
|
0 |
2 |
if ($whois_server eq 'ARPA') |
54
|
0 |
0 |
unless ($whois_server) |
60
|
0 |
2 |
unless ($whois_server) |
69
|
3 |
0 |
unless $args{'session'} |
98
|
2 |
1 |
if (my($type) = $$self{'request'}{'host'} =~ /^(NONE|WEB)$/) |
100
|
1 |
1 |
if ($type eq 'NONE') { } |
160
|
0 |
1 |
unless ($$self{'socket'}) |
169
|
0 |
1 |
$$self{'request'}{'host'} eq 'de.whois-servers.net' ? : |
183
|
0 |
1 |
if ($$self{'request'}{'referral'} and $$self{'_referral'}) |
184
|
0 |
0 |
if $$self{'referral_only'} |
188
|
0 |
0 |
$port ? : |
196
|
1 |
0 |
if (defined $$request{'reply'} and ref $$request{'reply'} eq 'ARRAY') { } |
210
|
0 |
34 |
if (my($referral) = $line =~ /ReferralServer:\s+(.*)$/) |
213
|
0 |
0 |
unless $scheme and $authority |
215
|
0 |
0 |
unless $scheme =~ /r?whois/ |
217
|
0 |
0 |
if $host eq $$self{'request'}{'host'} |
220
|
0 |
34 |
if ($$self{'request'}{'host'} eq $$self{'_dot_com'} and my($other) = $line =~ /Whois Server:\s+(.*)\s*$/i) |