Branch Coverage

lib/Net/DNS/SPF/Expander.pm
Criterion Covered Total %
branch 39 56 69.6


line true false branch
376 0 4 $nameservers ? :
535 9 0 if ($lengths->{$domain} > $self->maximum_record_length) { }
578 0 40 unless $packet and $packet->isa('Net::DNS::Packet')
580 0 40 unless $answer and $answer->isa('Net::DNS::RR::TXT')
605 0 947 unless $component
609 69 878 if ($splits > 1) { }
614 141 737 if (&any(sub { $component =~ /$_/; } , @{$self->to_ignore;})) { }
695 42 elsif (&any(sub { $component =~ /$_/; } , @{$self->to_copy;})) { }
40 2 elsif (&any(sub { $component =~ /$_/; } , @{$self->to_expand;})) { }
650 30 156 if (&any(sub { $component_name eq $_->name; } , @{$self->_spf_records;})) { }
687 34 160 if (&any(sub { $key =~ /$_/; } , @{$self->to_ignore;}))
690 160 0 if (ref $expansions->{$key} eq 'ARRAY')
748 340 0 if $result
753 9 0 $record_length % $max_length ? :
766 61 474 if $_ < $max_length * $part
775 9 28 $part == $number_of_partitions ? :
778 9 28 if ($part == $number_of_partitions) { }
790 0 9 if $partitions_only
845 3 16 if ($original_name =~ /^$origin(.?)$/) { }
0 16 elsif ($original_name =~ /^\.$/) { }
3 13 elsif ($original_name =~ /^\*/) { }
927 0 3 if (length $master_record > $self->maximum_record_length) { }
947 0 0 unless $index == 0
1003 0 3 unless $self->new_spf_records
1010 30 0 if (ref $record_set eq 'ARRAY') { }
1025 7 0 if defined do { $new_records{$_} }->[0]
1027 3 0 if ($make_autosplit_records) { }
1049 20 24 if ($line =~ /^[^;].+?v=spf1/)