| blib/lib/Mail/SRS/DB.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 2 | 12 | 16.6 |
| line | true | false | branch |
|---|---|---|---|
| 49 | 0 | 1 | unless $$self{'Database'} |
| 52 | 1 | 0 | unless my $dbm = tie(%data, 'MLDBM', $$self{'Database'}, 66, 416) |
| 84 | 0 | 0 | unless ($user =~ s/$Mail::SRS::DB::SRS0RE//io) |
| 91 | 0 | 0 | unless ($data = $$self{'Data'}{$hash}) |
| 98 | 0 | 0 | unless ($self->hash_verify($hash, $sendhost, $senduser)) |
| 102 | 0 | 0 | unless ($self->time_check($$data{'Time'})) |