Branch Coverage

blib/lib/Mail/Salsa/Action/Unsubscribe.pm
Criterion Covered Total %
branch 0 24 0.0


line true false branch
50 0 0 if ($$self{'config'}{'unsubscribe'} eq 'n')
66 0 0 if (exists $$self{'headers'}{'0.0'}{'cc'}) { }
71 0 0 if (scalar @{$exist;} < scalar @emails)
75 0 0 unless exists $seen{$e}
88 0 0 unless scalar @notexist < scalar @emails
91 0 0 if (my $stamp = Mail::Salsa::Utils::get_key($kfile))
92 0 0 if (my $human = Mail::Salsa::Utils::lookup4key($$self{'message'}, $stamp)) { }
93 0 0 if (&remove_from_list($file, {$$self{'from'}, 0}))
133 0 0 unless open LIST, '<', $file
135 0 0 unless open TMPLIST, '>', "$file.tmp"
138 0 0 if ($exist and /^[^\#]/ and /?/ and exists $$addrs{$1})
151 0 0 if ($exist < $n) { }