| line |
true |
false |
branch |
|
18
|
0 |
0 |
unless my $email = shift() |
|
24
|
0 |
0 |
unless ($domain) |
|
40
|
0 |
0 |
unless my($mx) = eval {
do {
unless (my($mx) = nslookup('domain', $domain, 'type', 'MX')) {
$err = "No mx records found for '${domain}'";
die;
} ;
$mx
}
} |
|
42
|
0 |
0 |
unless (my($mx) = nslookup('domain', $domain, 'type', 'MX')) |
|
47
|
0 |
0 |
if $err or $@ |
|
49
|
0 |
0 |
unless my $t = 'IO::Socket::Telnet'->new('PeerAddr', $mx, 'PeerPort', 25) |
|
57
|
0 |
0 |
unless ($t->recv(my $res, 4096)) |
|
58
|
0 |
0 |
if $DEBUG |
|
61
|
0 |
0 |
unless ($t->recv($res, 4096)) |
|
62
|
0 |
0 |
if $DEBUG |
|
65
|
0 |
0 |
unless ($t->recv($res, 4096)) |
|
66
|
0 |
0 |
if $DEBUG |
|
73
|
0 |
0 |
if $@ |
|
76
|
0 |
0 |
$is_valid ? : |
|
84
|
0 |
0 |
if (wantarray) { } |
|
93
|
0 |
0 |
unless defined $valid |