Branch Coverage

blib/lib/Mail/SpamAssassin/Plugin/DNSEval.pm
Criterion Covered Total %
branch 0 140 0.0


line true false branch
169 0 0 unless $ip
170 0 0 if exists $seen{$ip}
171 0 0 if $ip =~ /$IP_PRIVATE/o
184 0 0 unless (defined $pms->{'accreditor_tag'})
187 0 0 if ($pms->{'accreditor_tag'}{$accreditor})
210 0 0 if ($pms->get('EnvelopeFrom:addr') =~ /[\@.]a--([a-z0-9]{3,})\./i)
215 0 0 if (defined $accreditor_field)
219 0 0 if ($#terms >= 0)
234 0 0 if $self->{'main'}{'conf'}{'skip_rbl_checks'}
235 0 0 unless $pms->is_dns_available
237 0 0 if (not $rbl_server =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/ and index($rbl_server, '.') >= 0 and not $rbl_server =~ /\.$/)
253 0 0 !$_->{'internal'} ? :
264 0 0 unless defined $str and $str ne ''
274 0 0 unless scalar @ips + scalar(@originating) > 0
290 0 0 if ($set =~ /-(notfirsthop|lastexternal)$/) { }
0 0 elsif ($set =~ /-(first|un)trusted$/) { }
297 0 0 if ($1 eq 'lastexternal') { }
298 0 0 defined $ips[0] ? :
300 0 0 if scalar @ips > 1
311 0 0 if ($ip and not $trusted->contains_ip($ip))
316 0 0 if ($1 eq 'first') { }
317 0 0 defined $ips[0] ? :
326 0 0 if ($ip and not $trusted->contains_ip($ip))
338 0 0 if (scalar @ips > $checklast)
345 0 0 if (defined $tflags and not $tflags =~ /\bnice\b/)
350 0 0 unless (scalar @ips > 0)
360 0 0 if defined $revip
384 0 0 if $self->{'main'}{'conf'}{'skip_rbl_checks'}
385 0 0 unless $pms->is_dns_available
406 0 0 if $self->{'main'}{'conf'}{'skip_rbl_checks'}
407 0 0 unless $pms->is_dns_available
412 0 0 if (defined $test_headers) { }
420 0 0 if (defined $addr and $addr =~ /\@([^\@\s]+)/) { }
426 0 0 if ($host =~ /^$IP_ADDRESS$/) { }
427 0 0 if ($conf->{'tflags'}{$rule} || '') =~ /\bdomains_only\b/
430 0 0 if ($conf->{'tflags'}{$rule} || '') =~ /\bips_only\b/
432 0 0 if defined $host and $host ne ''
469 0 0 if $self->{'main'}{'conf'}{'skip_rbl_checks'}
470 0 0 unless $pms->is_dns_available
473 0 0 unless defined $from
475 0 0 if ($from =~ / \@ ( [^\@\s]+ \. [^\@\s]+ )/x)
480 0 0 unless defined $domain
506 0 0 unless ($pkt)
517 0 0 if (defined $nshost)
519 0 0 if (defined $subtest) { }
524 0 0 if defined $nshost and $nshost ne ''
546 0 0 if $self->{'main'}{'conf'}{'skip_rbl_checks'}
547 0 0 unless $pms->is_dns_available
553 0 0 if (defined $value and not $seen{$value}++)
559 0 0 if (defined $host and $host ne '')
561 0 0 if ($host =~ /^$IP_ADDRESS$/) { }
562 0 0 if ($pms->{'conf'}{'tflags'}{$rule} || '') =~ /\bdomains_only\b/
565 0 0 if ($pms->{'conf'}{'tflags'}{$rule} || '') =~ /\bips_only\b/
568 0 0 if (defined $subtest) { }
573 0 0 if defined $host and $host ne ''
590 0 0 if $self->{'main'}{'conf'}{'skip_rbl_checks'}
591 0 0 unless $pms->is_dns_available
595 0 0 unless defined $_ and / \@ ( [^\@\s]+ )/x
601 0 0 if $address =~ /\./
603 0 0 unless scalar keys %hosts
605 0 0 if (not $rbl_server =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/ and index($rbl_server, '.') >= 0 and not $rbl_server =~ /\.$/)
612 0 0 if ($host =~ /^$IP_ADDRESS$/) { }
613 0 0 if ($pms->{'conf'}{'tflags'}{$rule} || '') =~ /\bdomains_only\b/
616 0 0 if ($pms->{'conf'}{'tflags'}{$rule} || '') =~ /\bips_only\b/
626 0 0 if $self->{'main'}{'conf'}{'skip_rbl_checks'}
627 0 0 unless $pms->is_dns_available
631 0 0 unless defined $from
634 0 0 if ($from =~ / \@ ( [^\@\s]+ \. [^\@\s]+ )/x)
639 0 0 unless defined $host
641 0 0 if ($host eq 'compiling.spamassassin.taint.org')