Condition Coverage

blib/lib/Net/Whois/Raw.pm
Criterion Covered Total %
condition 31 90 34.4


and 2 conditions

line l !l condition
381 0 0 $qurl->{'form'} && scalar keys %{$$qurl{'form'};}

and 3 conditions

line !l l&&!r l&&r condition
84 1 0 0 $res_srv and $res_srv eq "www_whois"
86 0 1 0 defined $res_text and $which_whois ne "QRY_ALL"
153 2 0 0 $error and $error eq "Connection rate exceeded"
2 0 0 $error and $error eq "Connection rate exceeded" and $level == 0 || $CHECK_EXCEED == 2
181 4 0 135 $registrar and not $norecurse
4 133 2 $registrar and not $norecurse and /whois server:\s*([a-z0-9\-_\.]+)\b/i
0 137 0 not $norecurse and my($rs) = _referral_server()
137 0 0 /OrgID:\s+(\w+)/ || /descr:\s+(\w+)/ and Net::Whois::Raw::Common::is_ipaddr($dom)
137 0 0 /^\s+Maintainer:\s+RIPE\b/ and Net::Whois::Raw::Common::is_ipaddr($dom)
137 0 0 $is_ns and $srv ne $Net::Whois::Raw::Data::servers{'NS'}
209 0 2 0 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 0 1 1 $newsrv and $newsrv ne $srv
230 0 0 1 $new_whois and not $@
0 1 0 $notfound && $new_whois =~ /$notfound/im
0 0 1 $new_whois and not $@ and not $notfound && $new_whois =~ /$notfound/im
380 0 0 0 $qurl->{'form'} and defined $qurl->{'form'}{'referer'}
451 0 0 0 $ips and $server

or 2 conditions

line l !l condition
63 2 0 $which_whois ||= "QRY_LAST"
98 1 0 $which_whois ||= "QRY_LAST"

or 3 conditions

line l !l&&r !l&&!r condition
70 0 0 1 $which_whois eq "QRY_LAST" or not defined $which_whois
124 0 1 0 $srv ||= Net::Whois::Raw::Common::get_server($dom, $is_ns)
153 0 0 0 $level == 0 || $CHECK_EXCEED == 2
156 2 0 0 $text or $level == 0
178 2 0 4 /Registrar/ || /Registered through/
133 2 4 $registrar ||= /Registrar/ || /Registered through/
181 0 0 137 /OrgID:\s+(\w+)/ || /descr:\s+(\w+)/
209 0 0 2 $Net::Whois::Raw::Data::whois_servers_no_recurse{$newsrv} || $dom =~ /^xn--/i && $newsrv && $Net::Whois::Raw::Data::whois_servers_with_no_idn_support{$newsrv}
415 0 0 0 not $resp or $@
0 0 0 not $resp or $@ or $resp =~ /www_whois connection timeout/
0 0 0 not $resp or $@ or $resp =~ /www_whois connection timeout/ or $resp =~ /^500 Can\'t connect/