Branch Coverage

blib/lib/Mail/Qmail/Filter/Util.pm
Criterion Covered Total %
branch 12 14 85.7


line true false branch
14 1 1 unless ref $addrs
16 2 0 ref $addrs ? :
18 3 1 if (length $localpart) { }
23 3 0 if ref $slot
32 1 3 unless defined(my $slot = $struct->{$domain})
33 2 1 unless not ref $slot && length $localpart
38 7 1 if ($lc_addr =~ /\@/u) { }