| blib/lib/Mail/LocalDelivery.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 15 | 31 | 48.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 80 | 3 | 0 | 0 | $$self{'interpolate_strftime'} and grep {/%/;} @out |
| 184 | 2 | 0 | 0 | -d "$file/tmp" and -d "$file/new" |
| 265 | 1 | 2 | 0 | not $$write_opts{'need_from'} and $$self{'email'}->head->header->[0] =~ /^From\s/ |
| 274 | 2 | 0 | 1 | $$write_opts{'need_from'} and not $$self{'email'}->head->header->[0] =~ /^From\s/ |
| line | l | !l | condition |
|---|---|---|---|
| 208 | 0 | 2 | $opt || {} |
| 246 | 3 | 0 | shift() || {} |
| 288 | 0 | 1 | $$self{'email'}->get('Return-path') || $$self{'email'}->get('Sender') || $$self{'email'}->get('Reply-To') || 'root@localhost' |
| 320 | 1 | 2 | $$write_opts{'extra_newline'} or return "couldn't write to ${file}: $!" |
| 352 | 1 | 1 | $$self{'email'}->get('Lines') || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 50 | 1 | 0 | 0 | ref $stuff eq 'ARRAY' or ref $stuff eq 'GLOB' |
| 65 | 0 | 0 | 0 | $ENV{'MAIL'} || (-d 'File::Spec'->catdir($default_maildir, 'new') ? $default_maildir : ()) || (grep {-d $_;} '/var/spool/mail/', '/var/mail/')[0] . getpwuid($>) |
| 68 | 1 | 0 | 0 | $$self{'emergency'} ||= $default_mbox |