| blib/lib/PPI/Token/Pod.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 14 | 71.4 |
| line | true | false | branch |
|---|---|---|---|
| 55 | 1 | 0 | !ref($_[0]) ? : |
| 58 | 0 | 1 | if (grep {not &_INSTANCE($_, "PPI::Token::Pod");} @_) |
| 63 | 0 | 1 | unless my(@content) = map({[$_->lines];} @_) |
| 69 | 2 | 0 | if (@$pod and $pod->[0] =~ /^=pod\b/o) |
| 74 | 1 | 1 | if (@$pod and $pod->[-1] =~ /^=cut\b/o) |
| 129 | 2578 | 13441 | if ($t->{'line'} =~ /^=(\w+)/) |
| 131 | 712 | 1866 | if $1 eq "cut" |