| line |
true |
false |
branch |
|
39
|
0 |
0 |
if (exists $par->{$parname}) |
|
54
|
0 |
0 |
unless $net_whois_raw_data->{$k} |
|
69
|
1 |
1 |
if ($res) { } |
|
70
|
0 |
1 |
if ($which_whois eq 'QRY_FIRST') { } |
|
|
0 |
1 |
elsif ($which_whois eq 'QRY_LAST' or not defined $which_whois) { } |
|
|
1 |
0 |
elsif ($which_whois eq 'QRY_ALL') { } |
|
84
|
0 |
1 |
if $res_srv and $res_srv eq "www_whois" |
|
86
|
0 |
1 |
if (defined $res_text and $which_whois ne "QRY_ALL") |
|
89
|
0 |
0 |
if $SET_CODEPAGE |
|
92
|
0 |
1 |
wantarray ? : |
|
100
|
0 |
1 |
unless my $whois = get_all_whois($dom, $srv, $which_whois eq "QRY_FIRST") |
|
105
|
0 |
1 |
if ($which_whois eq 'QRY_LAST') { } |
|
|
0 |
1 |
elsif ($which_whois eq 'QRY_FIRST') { } |
|
107
|
0 |
0 |
wantarray ? : |
|
111
|
0 |
0 |
wantarray ? : |
|
122
|
0 |
1 |
if $dom =~ s/[.]NS$//i |
|
126
|
0 |
1 |
if ($srv eq "www_whois") |
|
128
|
0 |
0 |
$responce ? : |
|
153
|
0 |
0 |
if $error and $error eq "Connection rate exceeded" and $level == 0 || $CHECK_EXCEED == 2 |
|
156
|
2 |
0 |
if ($text or $level == 0) |
|
181
|
2 |
137 |
if ($registrar and not $norecurse and /whois server:\s*([a-z0-9\-_\.]+)\b/i) { } |
|
|
0 |
137 |
elsif ($whois =~ /To single out one record, look it up with \"xxx\",/s) { } |
|
|
0 |
137 |
elsif (not $norecurse and my($rs) = _referral_server()) { } |
|
|
0 |
137 |
elsif (/Contact information can be found in the (\S+)\s+database/) { } |
|
|
0 |
137 |
elsif (/OrgID:\s+(\w+)/ || /descr:\s+(\w+)/ and Net::Whois::Raw::Common::is_ipaddr($dom)) { } |
|
|
0 |
137 |
elsif (/^\s+Maintainer:\s+RIPE\b/ and Net::Whois::Raw::Common::is_ipaddr($dom)) { } |
|
|
0 |
274 |
elsif ($is_ns and $srv ne $Net::Whois::Raw::Data::servers{'NS'}) { } |
|
196
|
0 |
0 |
if ($val =~ /^(?:RIPE|APNIC|KRNIC|LACNIC)$/) |
|
209
|
0 |
0 |
if (defined $newsrv and $Net::Whois::Raw::Data::whois_servers_no_recurse{$newsrv} || $dom =~ /^xn--/i && $newsrv && $Net::Whois::Raw::Data::whois_servers_with_no_idn_support{$newsrv}) |
|
221
|
1 |
1 |
if ($newsrv and $newsrv ne $srv) |
|
222
|
0 |
1 |
if $DEBUG |
|
224
|
0 |
1 |
if grep {$_ eq $newsrv;} @$was_srv |
|
227
|
1 |
0 |
scalar @new_whois_recs ? : |
|
230
|
1 |
0 |
if ($new_whois and not $@ and not $notfound && $new_whois =~ /$notfound/im) { } |
|
231
|
0 |
1 |
if ($is_ns) { } |
|
239
|
0 |
0 |
if $DEBUG |
|
263
|
0 |
2 |
if (Net::Whois::Raw::Common::is_ip6addr($srv)) |
|
267
|
0 |
2 |
$srv =~ /\:\d+$/ ? : |
|
268
|
0 |
2 |
if ($class->can('whois_query_sockparams')) { } |
|
|
0 |
2 |
elsif ($class->can('whois_query_socket')) { } |
|
|
0 |
2 |
elsif (my $ips_arrayref = get_ips_for_query($server4query)) { } |
|
|
0 |
2 |
elsif (scalar @SRC_IPS) { } |
|
286
|
0 |
2 |
if ($rotate_reference) |
|
292
|
0 |
2 |
if $DEBUG >= 2 |
|
307
|
0 |
2 |
if $TIMEOUT |
|
309
|
2 |
0 |
unless ($sock) |
|
310
|
0 |
2 |
unless $sock = "IO::Socket::IP"->new(@sockparams) |
|
314
|
0 |
2 |
if ($class->can("whois_socket_fixup")) |
|
316
|
0 |
0 |
if $new_sock |
|
319
|
0 |
2 |
if ($DEBUG > 2) |
|
324
|
0 |
2 |
if ($QUERY_SUFFIX) |
|
338
|
0 |
2 |
if (defined $prev_alarm) |
|
339
|
0 |
0 |
if ($prev_alarm == 0) { } |
|
343
|
0 |
0 |
if $prev_alarm < 1 |
|
348
|
0 |
2 |
if $@ |
|
353
|
0 |
2 |
if $DEBUG >= 2 |
|
369
|
0 |
0 |
unless ($INC{'LWP/UserAgent.pm'}) |
|
380
|
0 |
0 |
if $qurl->{'form'} and defined $qurl->{'form'}{'referer'} |
|
381
|
0 |
0 |
$qurl->{'form'} && scalar keys %{$$qurl{'form'};} ? : |
|
386
|
0 |
0 |
if ($class->can("whois_query_ua")) |
|
390
|
0 |
0 |
unless ($ua) |
|
395
|
0 |
0 |
if $referer |
|
398
|
0 |
0 |
if ($method eq "POST") |
|
415
|
0 |
0 |
if (not $resp or $@ or $resp =~ /www_whois connection timeout/ or $resp =~ /^500 Can\'t connect/) { } |
|
424
|
0 |
0 |
unless $resp |
|
433
|
0 |
0 |
wantarray ? : |
|
451
|
0 |
0 |
unless $ips and $server |
|
462
|
0 |
2 |
if ($_IPS->{$server}) |