| line |
true |
false |
branch |
|
43
|
4 |
0 |
unless defined $args{'referral'} |
|
50
|
0 |
4 |
defined $args{'omit_msg'} ? : |
|
52
|
0 |
4 |
defined $args{'exceed_wait'} ? : |
|
64
|
0 |
4 |
if $args{'local_ips'} and join('', sort(@local_ips)) ne join('', sort(@{$args{'local_ips'};})) |
|
86
|
0 |
15 |
if ($$response{'error'}) { } |
|
|
0 |
15 |
elsif ($$response{'from_cache'}) { } |
|
|
0 |
15 |
elsif ($$response{'host'} eq 'www_whois') { } |
|
95
|
15 |
0 |
defined $$response{'reply'} ? : |
|
108
|
0 |
15 |
if ($error and $error eq 'Connection rate exceeded') |
|
111
|
0 |
0 |
if $DEBUG |
|
115
|
0 |
0 |
if ($$heap{'params'}{'exceed_wait'}) |
|
128
|
15 |
0 |
unless ($$response{'from_cache'} or $error and $$heap{'result'}{$$response{'original_query'}}) |
|
144
|
11 |
4 |
if $result{'whois'} and $$response{'host'} ne 'www_whois' |
|
147
|
4 |
11 |
if ($$heap{'params'}{'referral'} and ($new_server and not $result{'from_cache'})) |
|
162
|
4 |
11 |
unless ($$heap{'tasks'}) |
|
165
|
0 |
11 |
$$heap{'params'}{'referral'} == 0 ? : |
|
173
|
0 |
11 |
if $$heap{'params'}{'cache_dir'} and not $res{'from_cache'} |
|
179
|
0 |
11 |
if $$heap{'params'}{'referral'} == 2 |
|
199
|
10 |
5 |
unless ($args{'host'}) |
|
201
|
0 |
10 |
unless ($whois_server) |
|
208
|
15 |
0 |
unless $args{'host'} eq 'www_whois' |
|
232
|
0 |
15 |
if ($$self{'request'}{'cache_dir'}) |
|
238
|
0 |
0 |
if ($result) |
|
259
|
0 |
15 |
if ($$self{'request'}{'host'} eq 'www_whois') { } |
|
277
|
0 |
15 |
unless ($local_ip) |
|
284
|
0 |
0 |
if $DEBUG |
|
290
|
0 |
15 |
if $DEBUG |
|
295
|
15 |
0 |
if $local_ip eq 'localhost' |
|
323
|
0 |
0 |
if %form and $form{'referer'} |
|
324
|
0 |
0 |
scalar keys %form ? : |
|
327
|
0 |
0 |
if $referer |
|
330
|
0 |
0 |
if ($method eq 'POST') |
|
358
|
0 |
0 |
if ($$request{'whois'}) { } |
|
396
|
0 |
15 |
unless ($$self{'socket'}) |
|
414
|
0 |
15 |
if ($$self{'socket'} and $$self{'socket'}[2] and $$self{'socket'}[2][0]) |
|
424
|
15 |
0 |
if (defined $$request{'reply'} and ref $$request{'reply'} eq 'ARRAY') { } |
|
466
|
2 |
492 |
if ($registrar and /Whois Server:\s*([A-Za-z0-9\-_\.]+)/) { } |
|
|
0 |
492 |
elsif ($whois =~ /To single out one record, look it up with \"xxx\",/s) { } |
|
|
2 |
490 |
elsif (m[ReferralServer: whois://([-.\w]+)]) { } |
|
|
0 |
490 |
elsif (/Contact information can be found in the (\S+)\s+database/) { } |
|
|
4 |
486 |
elsif (/OrgID:\s+(\w+)/ || /descr:\s+(\w+)/ and Net::Whois::Raw::Common::is_ipaddr($query)) { } |
|
|
0 |
972 |
elsif (/^\s+Maintainer:\s+RIPE\b/ and Net::Whois::Raw::Common::is_ipaddr($query)) { } |
|
482
|
0 |
4 |
if ($value =~ /^(?:RIPE|APNIC|KRNIC|LACNIC)$/) |
|
492
|
4 |
7 |
if ($new_server) |
|
494
|
0 |
4 |
if $$result{'query'} eq $new_query and $$result{'server'} eq $new_server |
|
511
|
0 |
15 |
unless $next_ip eq 'localhost' |
|
513
|
15 |
0 |
unless ($servers_ban{$server} and $servers_ban{$server}{$next_ip}) |
|
551
|
0 |
0 |
if time - $servers_ban{$server}{$ip} >= ($Net::Whois::Raw::Data::ban_time{$server} || $Net::Whois::Raw::Data::default_ban_time) |
|
560
|
0 |
0 |
unless %{$servers_ban{$server};} |
|
577
|
0 |
0 |
if $ip_unban_time < 0 |
|
578
|
0 |
0 |
if not defined $unban_time or $unban_time > $ip_unban_time |