| 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) { } |
|
82
|
0 |
0 |
if (%{$whois_response_hash;}) { } |
|
100
|
0 |
0 |
if ($registrar eq 'whois.arin.net') { } |
|
|
0 |
0 |
elsif ($registrar eq 'whois.ripe.net' or $registrar eq 'whois.afrinic.net') { } |
|
109
|
0 |
0 |
if ($#response < 0) { } |
|
111
|
0 |
0 |
if ($i <= 3) { } |
|
125
|
0 |
0 |
if ($line =~ /^(.+):\s+(.+)$/) |
|
126
|
0 |
0 |
if ($multiple_flag and $multiple_flag ne '') { } |
|
149
|
0 |
0 |
if ($search_options and $search_options->[0] ne '') |
|
158
|
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 $_ =~ /.+\:.+/) { } |
|
166
|
0 |
0 |
if ($val =~ /^(?:RIPE|APNIC|KRNIC|LACNIC|AFRINIC)$/) |
|
174
|
0 |
0 |
if ($1 ne '' and not defined $hash_response->{$pattern1} and not defined $hash_response->{$pattern2}) |
|
189
|
0 |
0 |
if ($origIp =~ /! NET-(\d{1,3}\-\d{1,3}\-\d{1,3}\-\d{1,3})/) |
|
191
|
0 |
0 |
if ($ip =~ /! NET-(\d{1,3}\-\d{1,3}\-\d{1,3}\-\d{1,3})/) |
|
193
|
0 |
0 |
if (pack('C4', split(/\-/, $orIP, 0)) ge pack('C4', split(/\-/, $nwIP, 0))) |
|
198
|
0 |
0 |
unless ($ip =~ /\d{1,3}\-\d{1,3}\-\d{1,3}\-\d{1,3}/) |
|
223
|
2 |
0 |
unless ($sock) |
|
232
|
2 |
0 |
unless ($sock) |
|
243
|
0 |
0 |
unless (defined $tmp_dir) |
|
247
|
0 |
0 |
unless open DEBUG, ">>$outdebug" |