Branch Coverage

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


line true false branch
375 0 4 $nameservers ? :
533 9 0 if ($lengths->{$domain} > $self->maximum_record_length) { }
576 0 34 unless $packet and $packet->isa('Net::DNS::Packet')
578 0 34 unless $answer and $answer->isa('Net::DNS::RR::TXT')
603 0 882 unless $component
607 62 820 if ($splits > 1) { }
612 128 692 if (&any(sub { $component =~ /$_/; } , @{$self->to_ignore;})) { }
656 36 elsif (&any(sub { $component =~ /$_/; } , @{$self->to_copy;})) { }
34 2 elsif (&any(sub { $component =~ /$_/; } , @{$self->to_expand;})) { }
648 30 156 if (&any(sub { $component_name eq $_->name; } , @{$self->_spf_records;})) { }
685 34 160 if (&any(sub { $key =~ /$_/; } , @{$self->to_ignore;}))
688 160 0 if (ref $expansions->{$key} eq 'ARRAY')
746 326 0 if $result
751 9 0 $record_length % $max_length ? :
764 60 439 if $_ < $max_length * $part
773 9 27 $part == $number_of_partitions ? :
776 9 27 if ($part == $number_of_partitions) { }
788 0 9 if $partitions_only
843 3 16 if ($original_name =~ /^$origin(.?)$/) { }
0 16 elsif ($original_name =~ /^\.$/) { }
3 13 elsif ($original_name =~ /^\*/) { }
925 0 3 if (length $master_record > $self->maximum_record_length) { }
945 0 0 unless $index == 0
1001 0 3 unless $self->new_spf_records
1008 30 0 if (ref $record_set eq 'ARRAY') { }
1023 7 0 if defined do { $new_records{$_} }->[0]
1025 3 0 if ($make_autosplit_records) { }
1047 20 24 if ($line =~ /^[^;].+?v=spf1/)