| blib/lib/Data/Validate/Email.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 26 | 80.7 |
| line | true | false | branch |
|---|---|---|---|
| 161 | 2 | 11 | if ref $_[0] |
| 164 | 0 | 13 | unless defined $value |
| 166 | 2 | 11 | defined $self ? : |
| 169 | 2 | 11 | unless scalar @parts == 2 |
| 172 | 2 | 9 | unless defined $user |
| 173 | 0 | 9 | unless $user eq $parts[0] |
| 176 | 1 | 8 | unless defined $domain |
| 177 | 0 | 8 | unless $domain eq $parts[1] |
| 228 | 2 | 13 | if ref $_[0] |
| 231 | 0 | 15 | unless defined $value |
| 236 | 10 | 5 | if ($value =~ /^$Email::Address::mailbox$/) |
| 346 | 2 | 20 | if ref $_[0] |
| 349 | 0 | 22 | unless defined $value |