Branch Coverage

blib/lib/AnyEvent/Whois/Raw.pm
Criterion Covered Total %
branch 23 52 44.2


line true false branch
20 0 0 if ($@ and $@ =~ /^Call me later/)
30 157 6 if $fname ne 'Net/Whois/Raw.pm'
32 6 42 if (-e (my $tname = $INC[$i] . '/Net/Whois/Raw.pm'))
33 0 6 unless open my $fh, $tname
41 0 2754 if $_ eq ''
60 1 5 if (exists $known_params{$$args[$i - 1]}) { }
91 4 5 if (not $@) { }
0 5 elsif (not $@ =~ /^Call me later/) { }
116 0 0 if (not $@) { }
0 0 elsif (not $@ =~ /^Call me later/) { }
126 4 5 if ($call <= $#{$$stash{'results'}{'whois_query'};})
145 0 5 unless ($fh)
157 1 0 if ($handle and not $handle->destroyed)
162 1 4 exists $$stash_ref{'params'}{'timeout'} ? :
167 0 4 if (@lines and substr($lines[-1], -1) ne "\n")
202 0 5 if (exists $$stash{'params'}{'on_prepare'})
208 0 5 if (not $rotate_reference and @Net::Whois::Raw::SRC_IPS and $sockname eq getsockname $fh)
213 0 5 if ($rotate_reference)
219 1 4 exists $$stash{'params'}{'timeout'} ? :
226 0 0 if ($call <= $#{$$stash{'results'}{'www_whois_query'};})
248 0 0 unless ($qurl)
255 0 0 if $$qurl{'form'} and defined $$qurl{'form'}{'referer'}
256 0 0 $$qurl{'form'} && scalar keys %{$$qurl{'form'};} ? :
263 0 0 if (not $resp or $$headers{'Status'} > 299) { }
283 0 0 if (exists $$stash{'params'}{'timeout'})
287 0 0 if ($method eq 'POST') { }