Branch Coverage

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(?[^\@]+)[\@](?[^\@]+)\z/) { }
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