Condition Coverage

blib/lib/Net/DNSBL/Statistics.pm
Criterion Covered Total %
condition 58 104 55.7


and 3 conditions

line !l l&&!r l&&r condition
191 5 0 10 -e $_ and open F, $_
203 1 8 3 $DEBUG and $DEBUG == 1
211 36 0 35 $_ =~ /^[0-9a-z]+\.[0-9a-z]/i && !($_ =~ /in-addr/i)
225 0 0 35 exists $$conf{"$_"} and exists $$conf{"$_"}{'timeout'}
241 0 0 9 $regexptr = $$conf{'GENERIC'}{'regexp'} and ref $regexptr eq 'ARRAY'
0 0 9 $regexptr = $$conf{'GENERIC'}{'regexp'} and ref $regexptr eq 'ARRAY' and @$regexptr > 0
243 0 0 9 $iptr = $$conf{'GENERIC'}{'ignore'} and ref $iptr eq 'ARRAY'
0 0 9 $iptr = $$conf{'GENERIC'}{'ignore'} and ref $iptr eq 'ARRAY' and @$iptr > 0
254 1 7 1 $DEBUG and $DEBUG == 2
256 1 6 1 $DEBUG and $DEBUG == 3
282 233 46 70 $qsize > $Q and $ip = shift @ips
328 107 74 300 vec $wout, $fileno, 1 and @sndQ
346 0 0 133 $tc == 0 and $qr == 1
0 0 133 $tc == 0 and $qr == 1 and $opcode == QUERY()
0 133 0 $tc == 0 and $qr == 1 and $opcode == QUERY() and $rcode == NOERROR() || $rcode == NXDOMAIN() || $rcode == SERVFAIL()
0 0 133 $tc == 0 and $qr == 1 and $opcode == QUERY() and $rcode == NOERROR() || $rcode == NXDOMAIN() || $rcode == SERVFAIL() and $qdcount == 1
0 0 133 $tc == 0 and $qr == 1 and $opcode == QUERY() and $rcode == NOERROR() || $rcode == NXDOMAIN() || $rcode == SERVFAIL() and $qdcount == 1 and exists $queue{$id}
361 49 0 84 $ancount and $rcode == &NOERROR
0 0 14 $needPTR and $t == T_PTR()
0 8 6 $needPTR and $t == T_PTR() and exists $$conf{'in-addr.arpa'}
363 0 84 0 lc $bl eq lc $' and $t == T_A() || $t == T_PTR()
371 0 0 49 $needPTR and $t == T_PTR()
0 0 49 $needPTR and $t == T_PTR() and exists $dnsbls{'GENERIC'}
390 0 35 14 $iptr and grep(($g =~ /$_/i), @$iptr)
391 0 28 7 $g and not grep(($g =~ /$_/i), @$regexptr)
555 10 0 10 exists $$conf{"$bl"}{'comment'} && $$conf{"$bl"}{'comment'}
559 7 0 3 exists $$conf{"$bl"}{'url'} && $$conf{"$bl"}{'url'}
567 0 0 1 keys %$dnsbls and $$dnsbls{'TOTAL'}
612 0 0 1 keys %$dnsbls and $$dnsbls{'TOTAL'}

or 2 conditions

line l !l condition
235 5 0 $$conf{'in-addr.arpa'}{'timeout'} || 30
239 4 0 $$conf{'GENERIC'}{'timeout'} || 30
307 162 0 $$conf{"$bl"}{'timeout'} || 30
441 78 0 $$conf{"$bl"}{'timeout'} || 30

or 3 conditions

line l !l&&r !l&&!r condition
346 112 21 0 $rcode == NOERROR() || $rcode == NXDOMAIN() || $rcode == SERVFAIL()
363 49 35 0 $t == T_A() || $t == T_PTR()
452 58 12 7 @ips or keys %queue