| blib/lib/App/p5find.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 7 | 71.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 48 | 1 | 14 | 8 | defined $f and not is_perl5_source_file($f) |
| line | l | !l | condition |
|---|---|---|---|
| 89 | 1 | 1 | $doc->find(sub { my $op = $_[1]; return 0 unless $op->isa('PPI::Token::Operator') and $op->content eq '->'; return 0 unless my $op_next = $op->snext_sibling; return 0 if $op_next->isa('PPI::Structure::Subscript') or $op_next->isa('PPI::Structure::List'); return 1; } ) || [] |
| 98 | 0 | 0 | $doc->find($cb) || [] |