Condition Coverage

blib/lib/Net/DNSBL/Monitor.pm
Criterion Covered Total %
condition 62 108 57.4


and 3 conditions

line !l l&&!r l&&r condition
260 5 0 10 -e $_ and open F, $_
282 1 8 3 $DEBUG and $DEBUG == 1
290 36 0 35 $_ =~ /^[0-9a-z]+\.[0-9a-z]/i && !($_ =~ /in-addr/i)
304 0 0 35 exists $$conf{"$_"} and exists $$conf{"$_"}{'timeout'}
320 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
322 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
333 1 7 1 $DEBUG and $DEBUG == 2
335 1 6 1 $DEBUG and $DEBUG == 3
368 242 27 70 $qsize > $Q and $ip = shift @ips
414 111 70 302 vec $wout, $fileno, 1 and @sndQ
432 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}
448 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'}
450 0 84 0 lc $bl eq lc $' and $t == T_A() || $t == T_PTR()
458 0 0 49 $needPTR and $t == T_PTR()
0 0 49 $needPTR and $t == T_PTR() and exists $dnsbls{'GENERIC'}
481 0 35 14 $iptr and grep(($g =~ /$_/i), @$iptr)
482 0 28 7 $g and not grep(($g =~ /$_/i), @$regexptr)
661 25 0 10 exists $$conf{"$bl"}{'comment'} && $$conf{"$bl"}{'comment'}
665 20 0 5 exists $$conf{"$bl"}{'url'} && $$conf{"$bl"}{'url'}
673 0 0 1 keys %$dnsbls and $$dnsbls{'TOTAL'}
714 0 0 1 keys %$dnsbls and $$dnsbls{'TOTAL'}

or 2 conditions

line l !l condition
266 68 14 $' || ''
314 5 0 $$conf{'in-addr.arpa'}{'timeout'} || 30
318 4 0 $$conf{'GENERIC'}{'timeout'} || 30
393 163 0 $$conf{"$bl"}{'timeout'} || 30
529 79 0 $$conf{"$bl"}{'timeout'} || 30
829 3 1 $ck || ' '

or 3 conditions

line l !l&&r !l&&!r condition
432 112 21 0 $rcode == NOERROR() || $rcode == NXDOMAIN() || $rcode == SERVFAIL()
450 49 35 0 $t == T_A() || $t == T_PTR()
540 54 11 7 @ips or keys %queue