| blib/lib/Email/LocalDelivery/Mbox.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 26 | 46.1 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 0 | 1 | if (eval { do { $_[0]->isa('Email::Simple') } }) { } |
| 37 | 0 | 1 | unless my $fh = $class->_open_fh($file) |
| 38 | 0 | 1 | if tell $fh > 0 |
| 43 | 0 | 1 | unless $email->as_string =~ /\n$/ |
| 45 | 0 | 1 | unless $class->_close_fh($fh) |
| 54 | 0 | 0 | unless -d $dir or mkpath($dir) |
| 57 | 0 | 1 | unless open $fh, ">> $file" |
| 58 | 0 | 1 | unless $class->getlock($fh) |
| 65 | 0 | 1 | unless $class->unlock($fh) |
| 66 | 0 | 1 | unless close $fh |
| 83 | 0 | 1 | if exists $ENV{'UFLINE'} |
| 96 | 0 | 1 | if $from =~ /<(.*?)>/ |
| 108 | 1 | 0 | if flock $fh, 6 |