Branch Coverage

blib/lib/Perl/Critic/Policy/Documentation/ProhibitLinkToSelf.pm
Criterion Covered Total %
branch 16 20 80.0


line true false branch
75 7 1 if ($command eq 'head1')
82 8 0 unless ($command_non_text{$command})
99 0 11 unless ($self->{'in_begin'} eq '' or $self->{'in_begin'} =~ /^:/)
105 10 1 if ($self->{'in_name'})
106 6 4 if ($str =~ /^\s*([[:word:]:]+)\s*-/)
125 0 7 if ($cmd eq 'X') { }
6 1 elsif ($cmd eq 'L') { }
136 6 0 if (defined $name and $self->{'own_package_names'}{$name})
143 1 5 $self->{'in_see_also'} ? :
148 1 5 defined $display ? :