| blib/lib/Mail/MBX.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 16 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 53 | 0 | 0 | unless CORE::open my $fh, '<', $file |
| 60 | 0 | 0 | if (not defined $line) { } |
| 0 | 0 | elsif ($line ne "*mbx*\r\n") { } | |
| 70 | 0 | 0 | if ($line =~ /^([[:xdigit:]]{8})([[:xdigit:]]{8})\r\n$/) { } |
| 80 | 0 | 0 | if ($line ne '') |
| 105 | 0 | 0 | if (defined $$self{'fh'}) |
| 133 | 0 | 0 | if (eof $$self{'fh'}) |
| 139 | 0 | 0 | if ($$message{'uid'} == 0) |