| line |
true |
false |
branch |
|
18
|
0 |
29 |
if DEBUG() |
|
19
|
0 |
29 |
unless defined $message |
|
20
|
24 |
5 |
unless my $mlserver = 'Email::Abstract'->get_header($message, 'X-MLServer') |
|
21
|
0 |
5 |
unless $mlserver =~ /^fml \[(fml [^\]]*)\]/ |
|
28
|
1 |
4 |
if ($post = 'Email::Abstract'->get_header($message, 'List-Post')) { } |
|
|
1 |
3 |
elsif ($post = 'Email::Abstract'->get_header($message, 'List-Subscribe')) { } |
|
|
1 |
2 |
elsif ($post = 'Email::Abstract'->get_header($message, 'X-ML-Info')) { } |
|
|
2 |
0 |
elsif ($post = 'Email::Abstract'->get_header($message, 'Resent-To')) { } |
|
48
|
5 |
0 |
if ($post and 'Email::Valid'->address($post)) |
|
53
|
4 |
1 |
if ($mlname = 'Email::Abstract'->get_header($message, 'X-ML-Name')) { } |
|
|
1 |
0 |
elsif ($mlname = $list->posting_address) { } |