| lib/Email/Address/Classify.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 16 | 68.7 |
| line | true | false | branch |
|---|---|---|---|
| 98 | 0 | 1 | unless open my $fh, "<", $filename |
| 113 | 40 | 0 | if ($email) { } |
| 141 | 0 | 40 | if exists $self->{'random'} |
| 143 | 0 | 40 | unless $self->{'valid'} and length $self->{'localpart'} >= $min_length |
| 145 | 1 | 39 | unless %ngrams |
| 149 | 130 | 124 | if (exists $ngrams{$_}) { } |
| 155 | 20 | 20 | $uncommon > $common ? : |
| 160 | 0 | 40 | unless defined $email and $email =~ /^((?:[a-zA-Z0-9\+\_\=\.\-])+)@((?:[a-zA-Z0-9\-])+(?:\.[a-zA-Z0-9\-]+)+)$/ |