Condition Coverage

blib/lib/Mail/SMTP/Honeypot.pm
Criterion Covered Total %
condition 21 104 20.1


and 3 conditions

line !l l&&!r l&&r condition
423 3 2 2 $num =~ /\d/ && !($num =~ /[\D\s]/)
447 0 0 0 $$c{'piddir'} and -d $$c{'piddir'}
0 0 0 $$c{'piddir'} and -d $$c{'piddir'} and -w $$c{'piddir'}
454 0 0 0 grep(($_ eq '-d'), @ARGV) and @ARGV < 2
542 0 0 0 vld_num($verbose) and $verbose > 0
575 0 0 0 vld_num($DNStimeout) and $DNStimeout >= $delay
657 0 0 0 $syslog and $syslog eq 'STDERR'
701 0 0 0 $$tptr{'alarm'} and $$tptr{'alarm'} + $delay < $then
721 0 0 0 exists $$threads{$_} and not $$threads{$_}{'tout'}
728 0 0 0 $$dns{$_}{'alarm'} and $$dns{$_}{'alarm'} + $delay < $then
758 0 5 33 exists $$threads{$_} and $$threads{$_}
1057 0 0 8 $what eq $match and $string =~ /^:/
1068 5 0 0 $string =~ /^\s*?\s*$/ and $match =~ /to|vrfy/
1070 5 0 0 $string =~ /^\s*<\s*>/ and $match =~ /from/
1314 0 0 0 $syslog and $syslog ne 'STDERR'
1353 0 0 0 $syslog and $syslog ne 'STDERR'
1391 0 0 0 $dnsaddr and $DNSfileno
1432 0 0 0 $tc == 0 and $qr == 1
0 0 0 $tc == 0 and $qr == 1 and $opcode == QUERY()
0 0 0 $tc == 0 and $qr == 1 and $opcode == QUERY() and $rcode == NOERROR() || $rcode == NXDOMAIN() || $rcode == SERVFAIL()
0 0 0 $tc == 0 and $qr == 1 and $opcode == QUERY() and $rcode == NOERROR() || $rcode == NXDOMAIN() || $rcode == SERVFAIL() and $qdcount == 1
0 0 0 $tc == 0 and $qr == 1 and $opcode == QUERY() and $rcode == NOERROR() || $rcode == NXDOMAIN() || $rcode == SERVFAIL() and $qdcount == 1 and exists $$dns{$id}
1448 0 0 0 $ancount and $rcode == &NOERROR
0 0 0 $ancount and $rcode == &NOERROR and $lname eq $pname
0 0 0 $ancount and $rcode == &NOERROR and $lname eq $pname and $type == T_PTR()
0 0 0 $ancount and $rcode == &NOERROR and $lname eq $pname and $type == T_PTR() and $class == C_IN()

or 2 conditions

line l !l condition
794 1 0 $! || 9
825 1 0 $! || 9
1056 8 0 $' || ''
1235 1 1 $$tptr{'name'} || ''

or 3 conditions

line l !l&&r !l&&!r condition
454 0 0 0 grep(($_ eq '-d'), @ARGV) and @ARGV < 2 or @ARGV < 1
526 2 2 0 $$c{'hostname'} || fqdn()
849 1 2 3 $err == 4 || $err == 11
1239 2 0 0 $wargs || '554 5.3.5 unknown mailer error' . $CRLF
1377 27 3 0 shift() || time
1432 0 0 0 $rcode == NOERROR() || $rcode == NXDOMAIN() || $rcode == SERVFAIL()