Branch Coverage

blib/lib/POE/Component/Client/DNSBL.pm
Criterion Covered Total %
branch 24 42 57.1


line true false branch
17 3 0 unless $opts{'dnsbl'}
20 0 3 ref $options eq 'HASH' ? :
48 0 3 if ($$self{'alias'}) { }
54 3 0 unless ($$self{'resolver'} and $$self{'resolver'}->isa('POE::Component::Client::DNS'))
67 3 0 unless $$self{'alias'}
68 3 0 if $$self{'_mydns'}
77 0 11 if (ref $_[10] eq 'HASH') { }
84 0 11 unless ($$args{'event'})
88 0 11 unless ($$args{'address'})
95 8 3 if (ip_get_version($$args{'address'})) { }
96 0 8 unless (ip_is_ipv4($$args{'address'}))
107 0 11 if ($$args{'session'})
108 0 0 if (my $ref = $kernel->alias_resolve($$args{'session'})) { }
118 7 4 unless ref $$args{'event'} eq 'POE::Session::AnonEvent'
126 0 11 if $response
134 0 11 if (not $$record{'response'}) { }
141 2 9 if (@answers) { }
150 0 2 if $response
160 4 5 if (ref $event eq 'POE::Session::AnonEvent') { }
174 0 2 if (not $$record{'response'}) { }
181 2 0 if (@answers) { }