Branch Coverage

blib/lib/Perl/Critic/Policy/Documentation/ProhibitDuplicateHeadings.pm
Criterion Covered Total %
branch 30 34 88.2


line true false branch
83 46 6 unless (defined $str)
92 0 53 unless ($known_uniqueness{$key})
99 47 6 if (my $aref = $uniqueness_expand{$key}) { }
123 140 0 if ($command =~ /^head(\d*)$/)
135 28 112 if ($uniqueness->{'all'})
136 28 0 unless (defined $seen_linenum)
144 53 87 if ($uniqueness->{'adjacent'})
145 53 0 unless (defined $seen_linenum)
146 16 37 if (defined $self->{'seen_adjacent'} and $text eq $self->{'seen_adjacent'})
156 59 81 if ($uniqueness->{'sibling'})
158 50 9 unless (defined $seen_linenum)
165 15 76 if ($l > $level)
172 59 81 if ($uniqueness->{'ancestor'})
175 21 34 if ($l < $level) { }
176 5 16 if ($text eq $self->{'seen_ancestor'}{$l})
177 3 2 unless (defined $seen_linenum)
192 38 102 if (defined $seen_linenum)