| blib/lib/Perl/Tags/PPI.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 12 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 0 | 1 | unless $doc->find(sub { |
| 37 | 7 | 1 | if (my($subtype) = $class =~ /^PPI::Statement::(.*)$/) |
| 41 | 6 | 1 | if ($self->can($method)) |
| 94 | 3 | 0 | if (my $module = $thing->module) |
| 111 | 0 | 5 | unless $temp = $temp->sprevious_sibling |
| 114 | 1 | 4 | if ($temp->class eq 'PPI::Statement::Package') |