Branch Coverage

blib/lib/POE/Component/Client/Whois.pm
Criterion Covered Total %
branch 19 46 41.3


line true false branch
19 3 0 unless defined $args{'referral'} and not $args{'referral'}
21 0 3 unless ($args{'query'} and $args{'event'})
26 2 1 unless ($args{'host'})
31 0 2 if ($args{'query'} =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ and scalar grep(($_ >= 0 && $_ <= 255), split(/\./, $args{'query'}, 0)) == 4)
37 0 0 unless ($whois_server)
44 0 2 if ($args{'query'} =~ /:/)
50 0 2 if ($whois_server eq 'ARPA')
54 0 0 unless ($whois_server)
60 0 2 unless ($whois_server)
69 3 0 unless $args{'session'}
98 2 1 if (my($type) = $$self{'request'}{'host'} =~ /^(NONE|WEB)$/)
100 1 1 if ($type eq 'NONE') { }
160 0 1 unless ($$self{'socket'})
169 0 1 $$self{'request'}{'host'} eq 'de.whois-servers.net' ? :
183 0 1 if ($$self{'request'}{'referral'} and $$self{'_referral'})
184 0 0 if $$self{'referral_only'}
188 0 0 $port ? :
196 1 0 if (defined $$request{'reply'} and ref $$request{'reply'} eq 'ARRAY') { }
210 0 34 if (my($referral) = $line =~ /ReferralServer:\s+(.*)$/)
213 0 0 unless $scheme and $authority
215 0 0 unless $scheme =~ /r?whois/
217 0 0 if $host eq $$self{'request'}{'host'}
220 0 34 if ($$self{'request'}{'host'} eq $$self{'_dot_com'} and my($other) = $line =~ /Whois Server:\s+(.*)\s*$/i)