blib/lib/Email/Sender/Transport/Redirect/Recipients.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 21 | 24 | 87.5 |
line | true | false | branch |
---|---|---|---|
65 | 1 | 8 | unless @args == 1 |
67 | 6 | 2 | if (my $kind = ref $arg) { } |
68 | 5 | 1 | if ($kind eq 'HASH') |
71 | 1 | 10 | unless $k eq 'to' or $k eq 'exclude' |
88 | 3 | 3 | if ($exclusion =~ /\*/) { } |
3 | 0 | elsif (my $address = 'Email::Valid'->address($exclusion)) { } | |
92 | 3 | 6 | $1 eq '*' ? : |
0 | 9 | $1 eq '?' ? : | |
112 | 20 | 1 | if ($mail) |
113 | 18 | 2 | if (my(@exclusions) = @{$self->excludes_regexps;}) |
115 | 18 | 0 | if (my $address = 'Email::Valid'->address($mail)) |
119 | 12 | 12 | if ($real =~ /\A$re\z/) |