| line |
true |
false |
branch |
|
38
|
0 |
0 |
unless ($ip =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/ or $ip =~ /^$Net::Whois::IP::IPv6_re$/) |
|
66
|
0 |
0 |
if ($new_ip ne $ip or $new_registrar ne $registrar) { } |
|
80
|
0 |
0 |
if ($raw_flag and $raw_flag ne '') |
|
85
|
0 |
0 |
if (%{$whois_response_hash;}) { } |
|
103
|
0 |
0 |
if ($registrar eq 'whois.arin.net') { } |
|
|
0 |
0 |
elsif ($registrar eq 'whois.ripe.net' or $registrar eq 'whois.afrinic.net') { } |
|
112
|
0 |
0 |
if ($#response < 0) { } |
|
114
|
0 |
0 |
if ($i <= 3) { } |
|
128
|
0 |
0 |
if ($line =~ /^(.+):\s+(.+)$/) |
|
129
|
0 |
0 |
if ($multiple_flag and $multiple_flag ne '') { } |
|
152
|
0 |
0 |
if ($search_options and $search_options->[0] ne '') |
|
161
|
0 |
0 |
if (/Contact information can be found in the (\S+)\s+database/) { } |
|
|
0 |
0 |
elsif (/OrgID:\s+(\S+)/i or /source:\s+(\S+)/i and not defined $hash_response->{$pattern1}) { } |
|
|
0 |
0 |
elsif (/Parent:\s+(\S+)/) { } |
|
|
0 |
0 |
elsif ($registrar eq 'ARIN' and /.+\((.+)\).+$/ and not $_ =~ /.+\:.+/) { } |
|
169
|
0 |
0 |
if ($val =~ /^(?:RIPE|APNIC|KRNIC|LACNIC|AFRINIC)$/) |
|
177
|
0 |
0 |
if ($1 ne '' and not defined $hash_response->{$pattern1} and not defined $hash_response->{$pattern2}) |
|
192
|
0 |
0 |
if ($origIp =~ /! NET-(\d{1,3}\-\d{1,3}\-\d{1,3}\-\d{1,3})/) |
|
194
|
0 |
0 |
if ($ip =~ /! NET-(\d{1,3}\-\d{1,3}\-\d{1,3}\-\d{1,3})/) |
|
196
|
0 |
0 |
if (pack('C4', split(/\-/, $orIP, 0)) ge pack('C4', split(/\-/, $nwIP, 0))) |
|
201
|
0 |
0 |
unless ($ip =~ /\d{1,3}\-\d{1,3}\-\d{1,3}\-\d{1,3}/) |
|
226
|
2 |
0 |
unless ($sock) |
|
235
|
2 |
0 |
unless ($sock) |
|
246
|
0 |
0 |
unless (defined $tmp_dir) |
|
250
|
0 |
0 |
unless open DEBUG, ">>$outdebug" |