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 { |
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" |