| blib/lib/Perl/Critic/Policy/Documentation/RequireFinalCut.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 16 | 81.2 |
| line | true | false | branch |
|---|---|---|---|
| 81 | 7 | 21 | if ($self->{'in_pod'} and not $self->{'saw_cut_in_text'}) |
| 98 | 10 | 39 | if ($command eq 'cut') { } |
| 11 | 28 | elsif ($command eq 'end' or $command eq 'for') { } | |
| 15 | 13 | elsif ($command eq 'pod') { } | |
| 107 | 3 | 10 | unless ($self->{'in_begin'}) |
| 122 | 4 | 0 | if $text =~ /^\s*$/ |
| 124 | 0 | 0 | unless ($self->{'in_begin'}) |
| 136 | 5 | 8 | unless ($self->{'in_begin'}) |