| blib/lib/Mail/Verp.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 18 | 61.1 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 65 | 64 | ref $self ? : |
| 28 | 49 | 80 | if (@_) |
| 49 | 0 | 24 | unless ($sender) |
| 54 | 0 | 24 | unless ($recipient) |
| 61 | 0 | 24 | unless ($slocal and $sdomain) |
| 68 | 0 | 24 | unless ($rlocal and $rdomain) |
| 87 | 0 | 48 | unless ($address) |
| 94 | 48 | 0 | if (my($slocal, $rlocal, $rdomain, $sdomain) = $address =~ /^(.+?)\Q$separator\E(.+)=([^=\@]+)\@(.+)/) { } |
| 105 | 48 | 0 | if wantarray |