| blib/lib/Email/Delete/Maildir.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 10 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 2 | unless opendir my $dh, "$args{'from'}/$sect" |
| 20 | 4 | 3 | unless -f "$args{'from'}/$sect/$mail" |
| 21 | 0 | 3 | unless open my $fh, '<', "$args{'from'}/$sect/$mail" |
| 22 | 0 | 3 | unless my $msg = 'Email::Simple'->new(do { local $/; <$fh> }) |
| 23 | 2 | 1 | if $args{'matching'}($msg) |