| blib/lib/Perl/Critic/Pulp/PodParser.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 94 | 31 | 292 | if ($command eq 'begin') { } |
| 21 | 271 | elsif ($command eq 'end') { } | |
| 96 | 6 | 25 | if ($text =~ /^:/) { } |
| 24 | 1 | elsif ($text =~ /(\w+)/) { } | |
| 109 | 0 | 21 | if (not defined $self->{'in_begin'}) |
| 128 | 182 | 0 | if ($violation->policy eq 'Perl::Critic::Pulp::PodParser' and defined $violation->{'_policy'} and $violation->{'_policy'} eq 'Perl::Critic::Pulp::PodParser') |
| 183 | 179 | 24 | if (defined $text and not $command_non_text{$command}) |