| blib/lib/Email/LocalDelivery/Mbox.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 26 | 46.1 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 0 | 1 | if (eval { do { $_[0]->isa('Email::Simple') } }) { } |
| 35 | 0 | 1 | unless my $fh = $class->_open_fh($file) |
| 36 | 0 | 1 | if tell $fh > 0 |
| 41 | 0 | 1 | unless $email->as_string =~ /\n$/ |
| 43 | 0 | 1 | unless $class->_close_fh($fh) |
| 52 | 0 | 0 | unless -d $dir or mkpath($dir) |
| 55 | 0 | 1 | unless open $fh, ">> $file" |
| 56 | 0 | 1 | unless $class->getlock($fh) |
| 63 | 0 | 1 | unless $class->unlock($fh) |
| 64 | 0 | 1 | unless close $fh |
| 81 | 0 | 1 | if exists $ENV{'UFLINE'} |
| 94 | 0 | 1 | if $from =~ /<(.*?)>/ |
| 106 | 1 | 0 | if flock $fh, 6 |