| line |
true |
false |
branch |
|
31
|
0 |
0 |
unless open FH, '<', $file |
|
40
|
0 |
0 |
if ($blank and /^From .*\d{4}/) { } |
|
41
|
0 |
0 |
if @$mail |
|
46
|
0 |
0 |
/^$/ ? : |
|
51
|
0 |
0 |
if @$mail |
|
54
|
0 |
0 |
wantarray ? : |
|
59
|
0 |
0 |
if defined $domain |
|
63
|
0 |
0 |
if $domain = $ENV{'MAILDOMAIN'} |
|
71
|
0 |
0 |
if (defined $config and open CF, '<', $config) |
|
74
|
0 |
0 |
if (my($v, $arg) = /^D([a-zA-Z])([\w.\$\-]+)/) |
|
75
|
0 |
0 |
exists $var{$1} ? : |
|
80
|
0 |
0 |
if defined $var{'j'} |
|
81
|
0 |
0 |
if defined $var{'M'} |
|
83
|
0 |
0 |
if $domain and $domain =~ /([A-Za-z0-9](?:[\.\-A-Za-z0-9]+))/ |
|
86
|
0 |
0 |
if defined $domain and not $domain =~ /\$/ |
|
92
|
0 |
0 |
if (open CF, '<', '/usr/lib/smail/config') |
|
94
|
0 |
0 |
if (/\A\s*hostnames?\s*=\s*(\S+)/) |
|
101
|
0 |
0 |
if defined $domain |
|
107
|
0 |
0 |
if (eval {
do {
require Net::SMTP
}
}) |
|
111
|
0 |
0 |
if (defined $smtp) |
|
121
|
0 |
0 |
if not defined $domain and eval {
do {
require Net::Domain
}
} |
|
128
|
0 |
0 |
if @_ |
|
130
|
0 |
0 |
if defined $mailaddress |
|
136
|
0 |
0 |
unless ($mailaddress or $^O ne 'MacOS') |
|
148
|
0 |
0 |
unless $mailaddress =~ /\@/ |