Branch Coverage

blib/lib/Perl/Critic/Policy/Documentation/ProhibitAdjacentLinks.pm
Criterion Covered Total %
branch 18 22 81.8


line true false branch
76 4 19 if ($command_non_text{$command})
90 1 39 unless ($self->{'in_begin'} eq '' or $self->{'in_begin'} =~ /^:/)
105 36 38 if (not ref $obj) { }
107 4 32 unless ($obj =~ /^\s*$/)
116 37 1 if ($cmd eq 'L') { }
0 1 elsif ($cmd eq 'X' or $cmd eq 'Z') { }
120 37 0 ref $_ ? :
127 2 35 unless (defined $name)
129 11 26 if ($last_L and not $name eq $last_L_name && (defined $display || defined $last_L_display))
146 1 0 if (my $subtree = $obj->parse_tree)
152 39 0 unless ($text =~ /^\s.*$/)