| lib/Perl/PrereqScanner/NotQuiteLite/Parser/TestMore.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 12 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 44 | 0 | 8 | unless my $first_token = $tokens->[0] |
| 45 | 7 | 1 | if ref $first_token |
| 47 | 8 | 0 | if ($first_token eq "skip_all") |
| 48 | 7 | 0 | if $_->[0] eq "{" |
| 0 | 8 | unless $c->{'stack'} | |
| 5 | 3 | if (grep {$_->[2] eq "BEGIN" if $_->[0] eq "{";} @{[] unless $c->{'stack'};}) |