| line |
true |
false |
branch |
|
175
|
1 |
0 |
unless ($ip =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/ or $ip =~ /^$Net::Whois::IP::IPv6_re$/) |
|
178
|
2 |
1 |
unless (defined $reg) |
|
189
|
1 |
2 |
wantarray ? : |
|
196
|
0 |
0 |
$state ? : |
|
219
|
0 |
0 |
unless exists $whois_servers{$registrar} |
|
235
|
0 |
0 |
if ($new_ip ne $ip or $new_registrar ne $registrar) { } |
|
249
|
0 |
0 |
if ($raw_flag and $raw_flag ne "") |
|
253
|
0 |
0 |
if (%{$whois_response_hash;}) { } |
|
257
|
0 |
0 |
if (not defined $value) { } |
|
|
0 |
0 |
elsif (ref $value eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (not ref $value) { } |
|
262
|
0 |
0 |
unless defined $item and $item =~ /\S/ |
|
263
|
0 |
0 |
defined $item ? : |
|
279
|
0 |
0 |
if (@arin_summary_records) |
|
309
|
0 |
0 |
unless defined $rec->{$src_key} |
|
316
|
0 |
0 |
if (defined $rec->{'start'} and defined $rec->{'end'}) |
|
348
|
0 |
0 |
if ($#response < 0) { } |
|
350
|
0 |
0 |
if ($i <= 3) { } |
|
364
|
0 |
0 |
if ($line =~ /^([^:]+):\s*(.*)$/) |
|
367
|
0 |
0 |
if ($multiple_flag and $multiple_flag ne '') { } |
|
390
|
0 |
0 |
if (ref $search_options eq "ARRAY" and defined $search_options->[0] and $search_options->[0] ne "") |
|
398
|
0 |
0 |
if (/Contact information can be found in the (\S+)\s+database/) { } |
|
|
0 |
0 |
elsif (/OrgID:\s+(\S+)/i || /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 $_ =~ /.+\:.+/) { } |
|
405
|
0 |
0 |
if (exists $whois_servers{$val}) |
|
412
|
0 |
0 |
if ($1 ne "" and not defined $hash_response->{$pattern1} and not defined $hash_response->{$pattern2}) |
|
422
|
0 |
0 |
if (/^(.+?)\s+(\S+)\s+\((NET-[^)]+)\)\s+
(\d+\.\d+\.\d+\.\d+)\s+-\s+
(\d+\.\d+\.\d+\.\d+)\s*$/x) |
|
439
|
0 |
0 |
if ($origIp =~ /! NET-(\d{1,3}\-\d{1,3}\-\d{1,3}\-\d{1,3})/) |
|
441
|
0 |
0 |
if ($ip =~ /! NET-(\d{1,3}\-\d{1,3}\-\d{1,3}\-\d{1,3})/) |
|
443
|
0 |
0 |
if (pack("C4", split(/\-/, $orIP, 0)) ge pack("C4", split(/\-/, $nwIP, 0))) |
|
448
|
0 |
0 |
unless ($ip =~ /\d{1,3}\-\d{1,3}\-\d{1,3}\-\d{1,3}/) |
|
470
|
0 |
0 |
unless ($sock) |
|
478
|
0 |
0 |
unless ($sock) |
|
488
|
0 |
0 |
unless defined $ip |
|
489
|
0 |
0 |
unless $ip =~ /\A(\d+)\.(\d+)\.(\d+)\.(\d+)\z/ |
|
495
|
0 |
0 |
if $octet < 0 or $octet > 255 |
|
508
|
0 |
0 |
if $start > $end |
|
515
|
0 |
0 |
if ($start == 0 and $end == 4294967295) |
|
522
|
0 |
0 |
$start ? : |
|
545
|
0 |
0 |
if not defined $n or $n <= 0 |
|
554
|
0 |
0 |
unless defined $n |
|
555
|
0 |
0 |
if $n < 0 or $n > 4294967295 |
|
573
|
0 |
0 |
defined $last ? : |
|
577
|
0 |
0 |
if (not defined $last and $registrar eq $whois_servers{'ARIN'}) |
|
581
|
0 |
0 |
if ($wait > 0) |
|
590
|
6 |
0 |
unless $do_debugging |
|
599
|
0 |
0 |
unless ($did_warn) |
|
604
|
0 |
0 |
unless open my $debug_fh, ">>", $outdebug |
|
606
|
0 |
0 |
unless $debug_fh |
|
619
|
0 |
0 |
unless $do_debugging |
|
630
|
0 |
0 |
if $line =~ /^\s*$/ |
|
631
|
0 |
0 |
if $line =~ /^#/ |
|
632
|
0 |
0 |
if $line =~ /^%/ |
|
634
|
0 |
0 |
if ($line =~ /^(NetRange|CIDR|NetName|NetHandle|Parent|OrgName|Country):\s*(.+)$/i) |
|
639
|
0 |
0 |
if ($line =~ /^(.+?)\s+(\S+)\s+\((NET-[^)]+)\)\s+(\d+\.\d+\.\d+\.\d+)\s+-\s+(\d+\.\d+\.\d+\.\d+)\s*$/) |
|
644
|
0 |
0 |
if $line =~ /^(Comment|Remarks|RegDate|Updated|Created|Last-Modified):/i |
|
645
|
0 |
0 |
if $line =~ /^(OrgAbuse|OrgTech|OrgNOC|RTech|RNOC|RAbuse)/i |
|
656
|
0 |
0 |
if (@interesting) { } |
|
663
|
0 |
0 |
if (@unknown) { } |
|
675
|
0 |
0 |
unless $do_debugging |
|
686
|
0 |
0 |
if (ref $response ne "HASH") |
|
687
|
0 |
0 |
defined $response ? : |
|
694
|
0 |
0 |
if (ref $value eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $value) { } |
|
697
|
0 |
0 |
defined $item ? : |
|
702
|
0 |
0 |
defined $value ? : |