| blib/lib/App/p5find.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 5 | 100.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 42 | 1 | 14 | 8 | defined $f and not is_perl5_source_file($f) |
| line | l | !l | condition |
|---|---|---|---|
| 83 | 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; } ) || [] |