| line |
true |
false |
branch |
|
27
|
0 |
0 |
unless open FH, '<', $file |
|
36
|
0 |
0 |
if ($blank and /^From .*\d{4}/) { } |
|
37
|
0 |
0 |
if @$mail |
|
42
|
0 |
0 |
/^$/ ? : |
|
47
|
0 |
0 |
if @$mail |
|
50
|
0 |
0 |
wantarray ? : |
|
55
|
0 |
0 |
if defined $domain |
|
59
|
0 |
0 |
if $domain = $ENV{'MAILDOMAIN'} |
|
67
|
0 |
0 |
if (defined $config and open CF, '<', $config) |
|
70
|
0 |
0 |
if (my($v, $arg) = /^D([a-zA-Z])([\w.\$\-]+)/) |
|
71
|
0 |
0 |
exists $var{$1} ? : |
|
76
|
0 |
0 |
if defined $var{'j'} |
|
77
|
0 |
0 |
if defined $var{'M'} |
|
79
|
0 |
0 |
if $domain and $domain =~ /([A-Za-z0-9](?:[\.\-A-Za-z0-9]+))/ |
|
82
|
0 |
0 |
if defined $domain and not $domain =~ /\$/ |
|
88
|
0 |
0 |
if (open CF, '<', '/usr/lib/smail/config') |
|
90
|
0 |
0 |
if (/\A\s*hostnames?\s*=\s*(\S+)/) |
|
97
|
0 |
0 |
if defined $domain |
|
103
|
0 |
0 |
if (eval {
do {
require Net::SMTP
}
}) |
|
107
|
0 |
0 |
if (defined $smtp) |
|
117
|
0 |
0 |
if not defined $domain and eval {
do {
require Net::Domain
}
} |
|
124
|
0 |
0 |
if @_ |
|
126
|
0 |
0 |
if defined $mailaddress |
|
132
|
0 |
0 |
unless ($mailaddress or $^O ne 'MacOS') |
|
144
|
0 |
0 |
unless $mailaddress =~ /\@/ |