| blib/lib/App/CommentToPod.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 18 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 29 | 5 | 1 | unless ($self->gotpod(\@lines)) |
| 35 | 1 | 22 | if (not $self->package and $lines[$c] =~ /^package/) |
| 53 | 1 | 26 | if ($l =~ /^=pod/) |
| 72 | 0 | 7 | if $c > scalar @$lines |
| 75 | 0 | 5 | unless ($lines->[$c] =~ /^package/) |
| 104 | 10 | 13 | if ($self->lineIsComment($$lines[$$c])) |
| 111 | 0 | 13 | if ($self->mock_empty and $$lines[$$c] =~ /^sub/) |
| 133 | 7 | 3 | unless ($$lines[$$c] =~ /^sub/) |
| 160 | 1 | 11 | if $self->lineIsBlank($l) |