| blib/lib/Perl/ToPerl6/Transformer/Variables/ReplaceNegativeIndex.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 8 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 37 | 0 | 0 | if $_[1]->isa('PPI::Token::Symbol') and $_[1]->snext_sibling |
| 51 | 0 | 0 | unless $head->isa('PPI::Structure::Subscript') and $head->start eq '[' |
| 53 | 0 | 0 | if ($head->schild(0)->isa('PPI::Statement::Expression')) |
| 54 | 0 | 0 | if ($head->schild(0)->schild(0)->isa('PPI::Token::Number') and $head->schild(0)->schild(0)->content =~ /^ [-] /x) |