| line |
true |
false |
branch |
|
38
|
0 |
0 |
if $self{'debug'} ne '' |
|
39
|
0 |
0 |
if $self{'allow_ip_address_as_mx'} ne '' |
|
40
|
0 |
0 |
if $self{'flag_intranets'} ne '' |
|
41
|
0 |
0 |
if $self{'resolution_problem_return'} ne '' |
|
42
|
0 |
0 |
if $self{'query_timeout'} ne '' |
|
55
|
13 |
21 |
if ($reason ne '') |
|
74
|
0 |
34 |
if (uc ref $_[0] eq 'NET::VALIDMX') |
|
82
|
33 |
1 |
if ($#_ % 2 == 0) { } |
|
88
|
1 |
0 |
unless $params{'email'} or $params{'sender'} |
|
91
|
33 |
0 |
unless defined $params{'debug'} |
|
92
|
33 |
0 |
unless defined $params{'allow_ip_address_as_mx'} |
|
93
|
33 |
0 |
unless defined $params{'resolution_problem_return'} |
|
94
|
33 |
0 |
unless defined $params{'query_timeout'} |
|
96
|
33 |
0 |
if ($params{'resolution_problem_return'} > 0) { } |
|
102
|
0 |
33 |
if $params{'debug'} |
|
103
|
0 |
33 |
if $params{'debug'} |
|
104
|
0 |
33 |
if $params{'debug'} |
|
105
|
0 |
33 |
if $params{'debug'} |
|
113
|
33 |
0 |
if (defined $res) { } |
|
127
|
1 |
32 |
if ($domain =~ /^\[.*\]$/) |
|
129
|
0 |
1 |
if $params{'debug'} |
|
137
|
0 |
32 |
unless (defined $packet) |
|
138
|
0 |
0 |
if $params{'debug'} |
|
139
|
0 |
0 |
if $params{'debug'} |
|
143
|
0 |
32 |
if $params{'debug'} |
|
145
|
30 |
2 |
if ($packet->header->ancount > 0) { } |
|
146
|
30 |
0 |
if (defined $packet->answer) |
|
150
|
3 |
37 |
if ($answer[$i]->type ne 'MX') { } |
|
152
|
0 |
3 |
if $params{'debug'} |
|
160
|
0 |
30 |
if $params{'debug'} |
|
161
|
1 |
29 |
if (scalar @unsorted_answer < 1) { } |
|
171
|
0 |
36 |
if $params{'debug'} |
|
174
|
0 |
36 |
if ($answer[$i]->exchange eq 'localhost') |
|
176
|
0 |
0 |
if $params{'debug'} |
|
181
|
0 |
0 |
if ($answer[$i]->exchange eq '' and int $answer[$i]->preference == 0 and $i == $#answer) |
|
185
|
0 |
0 |
if $params{'debug'} |
|
190
|
34 |
2 |
if ($answer[$i]->exchange ne '' and not $answer[$i]->exchange =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) |
|
193
|
0 |
34 |
unless (defined $packet) |
|
195
|
0 |
0 |
if $params{'debug'} |
|
198
|
0 |
34 |
if $params{'debug'} |
|
201
|
6 |
28 |
if (defined $packet and $packet->header->ancount < 1) |
|
204
|
0 |
6 |
unless (defined $packet) |
|
206
|
0 |
0 |
if $params{'debug'} |
|
209
|
0 |
6 |
if $params{'debug'} |
|
213
|
29 |
7 |
if (defined $packet and $packet->header->ancount > 0) { } |
|
216
|
0 |
29 |
if $params{'debug'} |
|
217
|
26 |
3 |
if ($answer2[0]->type eq 'A') { } |
|
|
2 |
1 |
elsif ($answer2[0]->type eq 'CNAME') { } |
|
218
|
0 |
26 |
if $params{'debug'} |
|
220
|
1 |
25 |
if ($rv == 1 or $rv == 2 and $i == $#answer) { } |
|
|
20 |
5 |
elsif ($rv < 1) { } |
|
221
|
1 |
0 |
if ($rv == 2) |
|
224
|
0 |
1 |
if $params{'debug'} |
|
227
|
0 |
20 |
if $params{'debug'} |
|
233
|
0 |
2 |
unless (defined $packet) |
|
235
|
0 |
0 |
if $params{'debug'} |
|
239
|
2 |
0 |
if ($packet->header->ancount > 0) { } |
|
240
|
2 |
0 |
if (defined $packet->answer) |
|
242
|
0 |
2 |
if $params{'debug'} |
|
243
|
1 |
1 |
if ($answer3[0]->type eq 'A') { } |
|
245
|
0 |
1 |
if ($rv == 1 or $rv == 2 and $i == $#answer) { } |
|
|
1 |
0 |
elsif ($rv < 1) { } |
|
246
|
0 |
0 |
if ($rv == 2) |
|
249
|
0 |
0 |
if $params{'debug'} |
|
252
|
0 |
1 |
if $params{'debug'} |
|
258
|
0 |
1 |
if $params{'debug'} |
|
263
|
0 |
0 |
if ($params{'allow_ip_address_as_mx'} > 0 and $answer[$i]->exchange =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) |
|
265
|
0 |
0 |
if ($rv) { } |
|
268
|
0 |
0 |
if $params{'debug'} |
|
275
|
0 |
0 |
if $params{'debug'} |
|
282
|
0 |
7 |
if ($answer[$i]->exchange eq '') { } |
|
283
|
0 |
0 |
if ($i == $#answer) |
|
285
|
0 |
0 |
if $params{'debug'} |
|
290
|
2 |
5 |
if ($params{'allow_ip_address_as_mx'} > 0 and $answer[$i]->exchange =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) |
|
292
|
1 |
1 |
if ($rv) { } |
|
295
|
0 |
1 |
if $params{'debug'} |
|
303
|
3 |
2 |
if ($i == $#answer) |
|
307
|
0 |
3 |
if $params{'debug'} |
|
318
|
0 |
4 |
if $params{'debug'} |
|
320
|
3 |
1 |
if ($check_implicit_mx > 0) |
|
322
|
3 |
0 |
if (defined $rv) |
|
327
|
0 |
0 |
if $params{'debug'} |
|
328
|
0 |
0 |
if $params{'debug'} |
|
332
|
0 |
1 |
if $params{'debug'} |
|
344
|
3 |
0 |
if ($resolution_problem_return > 0) { } |
|
350
|
0 |
3 |
if $debug |
|
353
|
0 |
3 |
unless (defined $packet) |
|
355
|
0 |
0 |
if $debug |
|
359
|
0 |
3 |
if $debug |
|
360
|
2 |
1 |
if ($packet->header->ancount > 0) { } |
|
362
|
1 |
1 |
if ($answer[0]->type eq 'A') { } |
|
|
1 |
0 |
elsif ($answer[0]->type eq 'CNAME') { } |
|
363
|
0 |
1 |
if $debug |
|
365
|
0 |
1 |
if ($rv) { } |
|
366
|
0 |
0 |
if $debug |
|
369
|
0 |
1 |
if $debug |
|
374
|
0 |
1 |
if $debug |
|
377
|
0 |
1 |
unless (defined $packet) |
|
379
|
0 |
0 |
if $debug |
|
383
|
1 |
0 |
if ($packet->header->ancount > 0) |
|
384
|
1 |
0 |
if (defined $packet->answer) |
|
386
|
0 |
1 |
if ($answer2[0]->type eq 'A') { } |
|
387
|
0 |
0 |
if $debug |
|
389
|
0 |
0 |
if ($rv > 0) { } |
|
390
|
0 |
0 |
if $debug |
|
393
|
0 |
0 |
if $debug |
|
399
|
0 |
1 |
if $debug |
|
407
|
0 |
1 |
if $debug |
|
420
|
0 |
30 |
if ($ip =~ /^(255|127|0)\./) |
|
427
|
3 |
27 |
if ($flag_intranets and $ip =~ /^10\./) |
|
431
|
0 |
27 |
if ($flag_intranets and $ip =~ /^172\.(16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31)\./) |
|
435
|
4 |
23 |
if ($flag_intranets and $ip =~ /^192\.168\./) |
|
440
|
0 |
23 |
if ($ip =~ /^169\.254\./) |
|
445
|
0 |
23 |
if ($ip =~ /^(224|225|226|227|228|229|230|231|232|233|234|235|236|237|238|239)\./) |
|
450
|
0 |
23 |
if ($ip =~ /^2[45]\d\./) |
|
455
|
0 |
23 |
if ($ip =~ /^192\.1[89]\./) |
|
460
|
0 |
23 |
if ($ip =~ /^192\.0\.2\./) |
|
471
|
24 |
10 |
if ($int) { } |
|
484
|
0 |
3 |
unless $email |
|
486
|
0 |
3 |
if $debug |
|
496
|
0 |
3 |
if $debug |
|
501
|
0 |
3 |
if ($rv < 1) |
|
508
|
0 |
3 |
if ($rv < 1) |
|
528
|
0 |
9 |
if ($email =~ /\.\./) |
|
533
|
0 |
9 |
if (length $email > 254) |
|
538
|
0 |
9 |
if ($email =~ /\.$/) |
|
542
|
7 |
2 |
if ($email =~ m[^(.*)\@[-()/!#$%&*+~_A-Za-z0-9\.]+\.[-()/!#$%&*+~_A-Za-z0-9\.]+$]) |
|
547
|
2 |
5 |
if (length $local > 64) |
|
553
|
0 |
5 |
if ($local =~ /^\./ or $local =~ /\.$/g) |
|
562
|
0 |
5 |
if ($local =~ /"/) |
|
567
|
0 |
0 |
if ($local =~ /"/) { } |
|
575
|
5 |
0 |
if ($local =~ m[^[\@'-`/!\?=#\$\%&*+~_A-Za-z0-9\.{}|]+$]) { } |
|
604
|
0 |
35 |
if $params{'debug'} |
|
606
|
1 |
34 |
wantarray ? : |
|
615
|
0 |
0 |
if ($query) { } |
|
628
|
0 |
0 |
unless ($query) |
|
634
|
0 |
0 |
unless $result->type eq 'TXT' |
|
637
|
0 |
0 |
if ($spf_line =~ /^v=spf[12]/i) |
|
645
|
0 |
0 |
if $clause =~ /^[-~]/ |
|
646
|
0 |
0 |
if ($clause =~ /^.?all/) |
|
654
|
0 |
0 |
if ($found_spf == 0) { } |
|
|
0 |
0 |
elsif ($found_spf > 1) { } |