line |
true |
false |
branch |
27
|
10 |
0 |
unless (defined $self->{'min_len'}) |
29
|
9 |
1 |
unless (defined $self->{'max_len'}) |
32
|
1 |
9 |
if ($self->{'allow_ip'}) |
41
|
9 |
21 |
if (defined $self->{$_}) |
44
|
6 |
4 |
unless (defined $self->{'tldcheck'}) |
47
|
1 |
9 |
if ($self->{'mxcheck'}) |
65
|
5 |
5 |
if ($errors =~ /fqdn/) |
67
|
1 |
9 |
if ($errors =~ /rfc822/) |
68
|
0 |
1 |
if ($string =~ /\@/) { } |
73
|
1 |
9 |
if ($errors =~ /tld/) |
77
|
3 |
7 |
if ($errors =~ /mx/) |
86
|
2 |
10 |
if ($self->{'string'} =~ /$String::Validator::Email::RE{'net'}{'IPv4'}/) |
95
|
1 |
20 |
if ($self->CheckCommon($string1, $string2)) |
101
|
7 |
13 |
unless $addr |
102
|
7 |
13 |
if ($fail) { } |
108
|
12 |
1 |
unless ($self->{'allow_ip'}) |
114
|
6 |
14 |
if ($self->{'mxcheck'}) |
115
|
5 |
1 |
if ($self->{'error'} == 0) |
116
|
3 |
2 |
unless (mx($self->{'NetDNS'}, $self->{'maildomain'})) |