Condition Coverage

blib/lib/POE/Component/Client/Whois/Smart.pm
Criterion Covered Total %
condition 35 84 41.6


and 3 conditions

line !l l&&!r l&&r condition
64 4 0 0 $args{'local_ips'} and join('', sort(@local_ips)) ne join('', sort(@{$args{'local_ips'};}))
108 11 4 0 $error and $error eq 'Connection rate exceeded'
128 11 4 0 $error and $$heap{'result'}{$$response{'original_query'}}
144 4 0 11 $result{'whois'} and $$response{'host'} ne 'www_whois'
147 11 0 4 $new_server and not $result{'from_cache'}
0 15 0 $$heap{'params'}{'referral'} and ($new_server and not $result{'from_cache'})
173 11 0 0 $$heap{'params'}{'cache_dir'} and not $res{'from_cache'}
323 0 0 0 %form and $form{'referer'}
414 0 0 15 $$self{'socket'} and $$self{'socket'}[2]
0 15 0 $$self{'socket'} and $$self{'socket'}[2] and $$self{'socket'}[2][0]
424 0 0 15 defined $$request{'reply'} and ref $$request{'reply'} eq 'ARRAY'
466 301 191 2 $registrar and /Whois Server:\s*([A-Za-z0-9\-_\.]+)/
486 0 4 /OrgID:\s+(\w+)/ || /descr:\s+(\w+)/ and Net::Whois::Raw::Common::is_ipaddr($query)
486 0 0 /^\s+Maintainer:\s+RIPE\b/ and Net::Whois::Raw::Common::is_ipaddr($query)
494 0 4 0 $$result{'query'} eq $new_query and $$result{'server'} eq $new_server
513 15 0 0 $servers_ban{$server} and $servers_ban{$server}{$next_ip}

or 2 conditions

line l !l condition
49 0 4 $args{'cache_time'} ||= 1
58 0 4 $args{'timeout'} || 30
109 0 0 $$response{'local_ip'} || 'localhost'
297 0 15 $$self{'request'}{'port'} || 43
510 0 15 shift @local_ips || 'localhost'
568 0 0 @local_ips || 'localhost'

or 3 conditions

line l !l&&r !l&&!r condition
25 0 4 0 $args{'session'} || $POE::Component::Client::Whois::Smart::poe_kernel->get_active_session
128 0 0 15 $$response{'from_cache'} or $error and $$heap{'result'}{$$response{'original_query'}}
464 5 0 301 /Registrar/ || /Registered through/
188 5 301 $registrar ||= /Registrar/ || /Registered through/
466 0 4 486 /OrgID:\s+(\w+)/ || /descr:\s+(\w+)/
551 0 0 0 $Net::Whois::Raw::Data::ban_time{$server} || $Net::Whois::Raw::Data::default_ban_time
571 0 0 0 $Net::Whois::Raw::Data::ban_time{$server} || $Net::Whois::Raw::Data::default_ban_time
578 0 0 0 not defined $unban_time or $unban_time > $ip_unban_time