| line |
true |
false |
branch |
|
24
|
10 |
0 |
unless (defined $$self{'min_len'}) |
|
26
|
9 |
1 |
unless (defined $$self{'max_len'}) |
|
29
|
1 |
9 |
if ($$self{'allow_ip'}) |
|
38
|
9 |
21 |
if (defined $$self{$_}) |
|
41
|
6 |
4 |
unless (defined $$self{'tldcheck'}) |
|
44
|
1 |
9 |
if ($$self{'mxcheck'}) |
|
59
|
5 |
5 |
if ($errors =~ /fqdn/) |
|
61
|
1 |
9 |
if ($errors =~ /rfc822/) |
|
62
|
1 |
0 |
if (not $string =~ /\@/) { } |
|
66
|
1 |
9 |
if ($errors =~ /tld/) |
|
70
|
3 |
7 |
if ($errors =~ /mx/) |
|
79
|
2 |
10 |
if ($$self{'string'} =~ /$String::Validator::Email::RE{'net'}{'IPv4'}/) |
|
88
|
1 |
20 |
if ($self->CheckCommon($string1, $string2)) |
|
93
|
7 |
13 |
if (not $addr) { } |
|
99
|
12 |
1 |
unless ($$self{'allow_ip'}) |
|
105
|
6 |
14 |
if ($$self{'mxcheck'}) |
|
106
|
5 |
1 |
if ($$self{'error'} == 0) |
|
108
|
3 |
2 |
unless (mx($res, $$self{'maildomain'})) |