| line |
true |
false |
branch |
|
99
|
0 |
1 |
unless open my $fh, "<", $filename |
|
114
|
46 |
0 |
if ($email) { } |
|
142
|
0 |
46 |
if exists $self->{'random'} |
|
144
|
0 |
46 |
unless $self->{'valid'} and length $self->{'localpart'} >= $min_length |
|
146
|
1 |
45 |
unless %ngrams |
|
150
|
155 |
132 |
if (exists $ngrams{$_}) { } |
|
156
|
1 |
45 |
if ($common == $uncommon) |
|
158
|
1 |
0 |
if $self->{'localpart'} =~ /[bcdfgjklmnpqrtvwxz]{5}|[aeiouy]{5}|([a-z]{1,2})(?:\1){3}/ |
|
160
|
23 |
23 |
$uncommon > $common ? : |
|
165
|
0 |
46 |
unless defined $email and $email =~ /^((?:[a-zA-Z0-9\+\_\=\.\-])+)@((?:[a-zA-Z0-9\-])+(?:\.[a-zA-Z0-9\-]+)+)$/ |