| blib/lib/Perl/ToPerl6/Transformer/Pragmas/RewriteConstants.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 10 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 40 | 0 | 0 | unless $elem and $elem->first_element |
| 45 | 0 | 0 | if ($current->isa('PPI::Token::Word') and $current->content =~ /^Readonly/) { } |
| 0 | 0 | elsif ($head->isa('PPI::Token::Word') and $head->content eq 'use' and $head->snext_sibling and $head->snext_sibling->isa('PPI::Token::Word') and $head->snext_sibling->content eq 'constant') { } | |
| 53 | 0 | 0 | if (exists $map{$current->content}) |
| 65 | 0 | 0 | if ($current->content =~ / ^ ( \$ | \@ ) /x) |