| lib/Perlmazing/Perlmazing/is_email_address.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 6 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 4 | 0 | 33 | unless $_[0] |
| 5 | 0 | 25 | wantarray ? : |
| 25 | 7 | if length $_[0] <= 254 and $_[0] =~ /\015 # Make captures for user and domain only ($1 and $2), using (?: on any other parenthesis to avoid captures\015 ^\015 ( # Begin first part of email address\015 (?: # Option 1\015 [^<>()[\]\\.,;:\s\@\"]+ # Any character NOT in this set, at least one\015 (?:\015 \.[^<>()[\]\\.,;:\s\@\"]+ # Followed by any character NOT in these set, starting with dot, in groups from 0 to many\015 )*\015 )\015 |\015 (?: # Option 2\015 ".*?(? |