| blib/lib/Mail/ListDetector/Detector/Ecartis.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 23 | 34 | 67.6 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 0 | 39 | if DEBUG() |
| 16 | 0 | 39 | unless defined $message |
| 24 | 18 | 4 | unless (defined $list) |
| 25 | 0 | 18 | if DEBUG() |
| 26 | 1 | 17 | if ($sender =~ /^(\S+?)-owner/) { } |
| 27 | 0 | 1 | if DEBUG() |
| 31 | 0 | 17 | if DEBUG() |
| 32 | 1 | 16 | if ($sender =~ /^(\S+?)-bounce/) { } |
| 33 | 0 | 1 | if DEBUG() |
| 37 | 0 | 16 | if DEBUG() |
| 41 | 6 | 16 | if defined $list |
| 44 | 33 | 6 | unless defined $list |
| 46 | 0 | 6 | if DEBUG() |
| 47 | 0 | 6 | unless 'Email::Valid'->address($list) |
| 48 | 0 | 6 | if DEBUG() |
| 52 | 5 | 1 | unless defined $lv |
| 55 | 0 | 1 | unless defined $listname |