| line |
true |
false |
branch |
|
206
|
0 |
1 |
if (my $ip = $self->convert_ipv4($in)) { } |
|
|
0 |
1 |
elsif ($in =~ /^[a-f0-9][a-f0-9][a-f0-9][a-f0-9]:/) { } |
|
|
0 |
1 |
elsif ($in =~ /AS\s*?([0-9\s]+)/i) { } |
|
|
1 |
0 |
elsif ($in =~ /([A-Za-z0-9-]+\.[A-Za-z]{2,4})$/) { } |
|
|
0 |
0 |
elsif ($in =~ /^(rev|r|dns)(erse|dns)?.*?\:?\s?(\d+\.\d+\.\d+\.\d+)/i) { } |
|
|
0 |
0 |
elsif ($in =~ /^(con|v)(ert|vert)?.*?:?\s?(\d+\.\d+\.\d+\.\d+|\d+)/i) { } |
|
233
|
0 |
1 |
if ($int =~ /^\d+$/) { } |
|
|
0 |
1 |
elsif ($self->check_ipv4($int)) { } |
|
254
|
0 |
0 |
if ($ip =~ /^\d+$/) |
|
258
|
0 |
0 |
unless $self->check_ipv4($ip) |
|
336
|
0 |
0 |
unless $server |
|
338
|
0 |
0 |
unless ($server =~ /whois\.arin\.net/i) |
|
347
|
0 |
0 |
if ($data =~ m[ReferralServer\:\s*(?:whois://)?([A-Za-z0-9:.-]+)]) |
|
354
|
0 |
0 |
if ($$self{'stacked_results'}) { } |
|
356
|
0 |
0 |
!$$self{'clean_stack'} ? : |
|
|
0 |
0 |
!$$self{'clean_stack'} ? : |
|
358
|
0 |
0 |
$data2 ? : |
|
368
|
0 |
0 |
if (eval $re) |
|
372
|
0 |
0 |
if ($$self{'stacked_results'}) { } |
|
374
|
0 |
0 |
!$$self{'clean_stack'} ? : |
|
|
0 |
0 |
!$$self{'clean_stack'} ? : |
|
376
|
0 |
0 |
$data2 ? : |
|
426
|
0 |
0 |
if (eval $re) |
|
447
|
0 |
0 |
unless $id |
|
502
|
0 |
0 |
if ($$entry[0] and $$entry[1]) { } |
|
|
0 |
0 |
elsif ($id == $$entry[0]) { } |
|
503
|
0 |
0 |
if ($id >= $$entry[0] and $id <= $$entry[1]) |
|
529
|
0 |
1 |
if (not $domain && $domain =~ /^[0-9A-Za-z-]+\.[A-Za-z]{2,4}$/) { } |
|
534
|
0 |
0 |
if ($data =~ /Whois\s?Server:\s?([A-Za-z0-9.-]+\.[A-Za-z]{2}[A-Za-z]?)/i) |
|
538
|
0 |
0 |
if (not $nic and $data) { } |
|
|
0 |
0 |
elsif ($nic) { } |
|
539
|
0 |
0 |
$data ? : |
|
543
|
0 |
0 |
if ($$self{'stacked_results'}) { } |
|
544
|
0 |
0 |
!$$self{'clean_stack'} ? : |
|
|
0 |
0 |
!$$self{'clean_stack'} ? : |
|
546
|
0 |
0 |
$data2 ? : |
|
563
|
1 |
0 |
if (not $ip[0] && $ip[-1] =~ /\d/ or $ip[0] > 255 or not $ip[0] =~ /^\d+$/) { } |
|
567
|
0 |
0 |
if ($ip[$i] > 255 or not $ip[$i] =~ /^\d+$/) |
|
583
|
3 |
2 |
if $err |
|
596
|
0 |
0 |
$name ? : |
|
633
|
0 |
1 |
if ($@ =~ /timeout/) { } |
|
|
1 |
0 |
elsif ($@) { } |
|
|
0 |
0 |
elsif (not $sock) { } |
|
644
|
0 |
0 |
unless $data =~ /[\r\n]+$/ |
|
647
|
0 |
0 |
$! ? : |
|
|
0 |
0 |
@data ? : |
|
|
0 |
0 |
@data && wantarray ? : |
|
663
|
0 |
0 |
wantarray ? : |
|
671
|
0 |
4 |
if ($$self{'debug'}) |
|
673
|
0 |
0 |
if ($$self{'debug'} eq 1) { } |