| blib/lib/Perl/Critic/Policy/Plicease/ProhibitLeadingZeros.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 12 | 91.6 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 8 | 8 | unless $element =~ /\A [+-]? (?: 0+ _* )+ [1-9]/mx |
| 25 | 1 | 7 | if $element->sprevious_sibling eq 'chmod' |
| 26 | 1 | 6 | if (eval { do { $element->sprevious_sibling->sprevious_sibling->sprevious_sibling->sprevious_sibling->sprevious_sibling } } || '') eq 'mkpath' |
| 29 | 5 | 1 | if ($element->parent->isa('PPI::Statement::Expression')) |
| 36 | 2 | 3 | if $working and ($working->children)[0] eq 'chmod' |
| 37 | 3 | 0 | if $working and ($working->children)[-3] eq 'mkpath' |