| blib/lib/Perl/Critic/Policy/Documentation/ProhibitVerbatimMarkup.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 12 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 61 | 4 | 13 | if ($command eq 'for' and $text =~ /^ProhibitVerbatimMarkup\b\s*(.*)/) |
| 65 | 4 | 0 | if ($directive =~ /^allow next( (\d+))?/) |
| 68 | 2 | 2 | defined $2 ? : |
| 78 | 4 | 14 | if ($self->{'allow_next'}) |
| 85 | 1 | 13 | unless ($self->{'in_begin'} eq '' or $self->{'in_begin'} =~ /^:/) |
| 103 | 0 | 10 | unless $1 |