| blib/lib/Email/Sender/Transport/Mbox.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 20 | 55.0 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 1 | 1 | if ($fh->tell > 0) |
| 34 | 0 | 1 | unless $fh->print("\n") |
| 37 | 0 | 2 | unless $fh->print($self->_from_line($email, $env)) |
| 40 | 0 | 2 | unless $fh->print($self->_escape_from_body($email)) |
| 44 | 0 | 2 | unless $email->as_string =~ /\n$/ |
| 48 | 0 | 2 | unless $self->_close_fh($fh) |
| 54 | 0 | 2 | unless $ok |
| 63 | 0 | 2 | if not -d $dir or mkpath($dir) |
| 65 | 0 | 2 | unless my $fh = 'IO::File'->new($file, '>>') |
| 103 | 2 | 0 | if flock $fh, 6 |