| line |
true |
false |
branch |
|
36
|
19 |
1 |
if (not defined $address) { } |
|
|
1 |
0 |
elsif (not ref $address && $address->isa('Mail::Message::Field::Address')) { } |
|
39
|
0 |
1 |
unless my $mi = "Mail::Message::Field::Address"->coerce($address) |
|
45
|
1 |
19 |
if defined $args->{'address'} |
|
46
|
0 |
20 |
if defined $args->{'listname'} |
|
47
|
0 |
20 |
if defined $args->{'rfc'} |
|
55
|
19 |
0 |
$from->isa('Mail::Message::Head') ? : |
|
57
|
2 |
17 |
unless $self->collectFields |
|
60
|
2 |
15 |
if (my $communigate = $head->get('X-ListServer')) { } |
|
|
2 |
13 |
elsif (my $mailman = $head->get('X-Mailman-Version')) { } |
|
|
0 |
13 |
elsif (my $majordomo = $head->get('X-Majordomo-Version')) { } |
|
|
1 |
12 |
elsif (my $ecartis = $head->get('X-Ecartis-Version')) { } |
|
|
1 |
11 |
elsif (my $listar = $head->get('X-Listar-Version')) { } |
|
|
1 |
10 |
elsif (defined($field = $head->get('List-Software')) and $field =~ /listbox/i) { } |
|
|
2 |
8 |
elsif ($field = &first(sub {
m[LISTSERV-TCP/IP]s;
}
, $head->get('Received'))) { } |
|
|
1 |
7 |
elsif (defined($field = $head->get('X-Mailing-List')) and $field =~ m[archive/latest]) { } |
|
|
1 |
6 |
elsif (defined($field = $head->get('Mailing-List')) and $field =~ /yahoo/i) { } |
|
|
1 |
5 |
elsif (defined $field and $field =~ /(ezmlm)/i) { } |
|
|
2 |
3 |
elsif (my $fml = $head->get('X-MLServer')) { } |
|
|
1 |
2 |
elsif (defined($field = $head->get('List-Subscribe') || $head->get('List-Unsubscribe')) and $field =~ /sympa/i) { } |
|
|
1 |
1 |
elsif (&first(sub {
/majordom/i;
}
, $head->get('Received'))) { } |
|
|
1 |
0 |
elsif (defined($field = $head->get('List-ID')) and $field =~ /listbox\.com/i) { } |
|
62
|
1 |
1 |
$software =~ /Pro/ ? : |
|
116
|
0 |
18 |
if defined $self->{'MMHL_rfc'} |
|
119
|
4 |
10 |
defined $head->get('List-Id') ? : |
|
|
4 |
14 |
if (defined $head->get('List-Post')) { } |
|
127
|
3 |
17 |
if exists $self->{'MMHL_address'} |
|
133
|
1 |
16 |
if ($type eq 'Smartlist' and defined($field = $head->get('X-Mailing-List'))) { } |
|
|
1 |
15 |
elsif ($type eq 'YahooGroups') { } |
|
|
2 |
13 |
elsif ($type eq 'Listserv') { } |
|
134
|
1 |
0 |
if $field =~ /\<([^>]+)\>/ |
|
141
|
15 |
2 |
if builtin::blessed($address) |
|
143
|
0 |
17 |
if (not defined $address) { } |
|
|
2 |
15 |
elsif (not ref $address) { } |
|
|
11 |
4 |
elsif ($address->isa('Mail::Message::Field::Addresses')) { } |
|
|
4 |
0 |
elsif ($address->isa('Mail::Message::Field::URIs')) { } |
|
151
|
11 |
0 |
defined $address ? : |
|
152
|
0 |
11 |
if ($username =~ s/^owner-|-(owner|bounce|admin)$//i) |
|
158
|
4 |
0 |
defined $uri ? : |
|
170
|
0 |
1 |
if exists $self->{'MMHL_listname'} |
|
178
|
0 |
1 |
if (defined $list) { } |
|
|
1 |
0 |
elsif (my $address = $self->address) { } |
|
218
|
3 |
14 |
if defined $software and $type eq $software |
|
220
|
6 |
0 |
defined $version ? : |
|
|
5 |
6 |
defined $version ? : |
|
|
6 |
11 |
defined $software ? : |