| lib/Mail/Action/Role/Purge.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 18 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 64 | 5 | 14 | wantarray ? : |
| 82 | 0 | 15 | unless ($file) |
| 86 | 0 | 15 | unless open OUT, '+< ' . $file |
| 87 | 0 | 15 | unless flock OUT, 2 |
| 88 | 15 | 0 | if unlink $file |
| 99 | 2 | 3 | if (my $min_age = shift()) { } |
| 110 | 0 | 55 | unless $addy |
| 112 | 15 | 40 | if ($expires and $expires < $min_ts) |
| 113 | 15 | 0 | if $self->delete_from_storage($_) |