lib/Haineko/SMTPD/Address.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 17 | 20 | 85.0 |
line | true | false | branch |
---|---|---|---|
21 | 1 | 28 | unless defined $$argvs{'address'} |
23 | 27 | 1 | if ($$argvs{'address'} =~ /\A(? |
42 | 1 | 25 | unless defined $email |
43 | 1 | 24 | if ref $email |
60 | 12 | 12 | if (scalar @$emailtoken == 1) { } |
68 | 20 | 16 | unless $e =~ /\A[<]?.+[\@][-.0-9A-Za-z]+[.][A-Za-z]{2,}[>]?\z/ |
73 | 4 | 20 | if (scalar @$addressset > 1) { } |
76 | 0 | 4 | unless $canonified |
83 | 0 | 24 | unless defined $canonified |
84 | 0 | 24 | unless $canonified |