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 |