Branch Coverage

lib/Net/DNS/SPF/Expander.pm
Criterion Covered Total %
branch 41 56 73.2


line true false branch
388 0 4 $nameservers ? :
560 9 0 if ($lengths->{$domain} > $self->maximum_record_length) { }
603 5 54 unless $packet and $packet->isa('Net::DNS::Packet')
605 0 54 unless $answer and $answer->isa('Net::DNS::RR::TXT')
630 5 987 unless $component
634 82 905 if ($splits > 1) { }
639 166 739 if (&any(sub { $component =~ /$_/; } , @{$self->to_ignore;})) { }
676 63 elsif (&any(sub { $component =~ /$_/; } , @{$self->to_copy;})) { }
59 4 elsif (&any(sub { $component =~ /$_/; } , @{$self->to_expand;})) { }
675 30 156 if (&any(sub { $component_name eq $_->name; } , @{$self->_spf_records;})) { }
712 34 160 if (&any(sub { $key =~ /$_/; } , @{$self->to_ignore;}))
715 160 0 if (ref $expansions->{$key} eq 'ARRAY')
773 336 0 if $result
778 9 0 $record_length % $max_length ? :
791 50 463 if $_ < $max_length * $part
800 9 28 $part == $number_of_partitions ? :
803 9 28 if ($part == $number_of_partitions) { }
815 0 9 if $partitions_only
870 3 15 if ($original_name =~ /^$origin(.?)$/) { }
0 15 elsif ($original_name =~ /^\.$/) { }
3 12 elsif ($original_name =~ /^\*/) { }
952 0 3 if (length $master_record > $self->maximum_record_length) { }
972 0 0 unless $index == 0
1028 0 3 unless $self->new_spf_records
1035 27 0 if (ref $record_set eq 'ARRAY') { }
1050 7 0 if defined do { $new_records{$_} }->[0]
1052 3 0 if ($make_autosplit_records) { }
1074 20 24 if ($line =~ /^[^;].+?v=spf1/)