Branch Coverage

blib/lib/Perl/Critic/Policy/Plicease/ProhibitLeadingZeros.pm
Criterion Covered Total %
branch 11 12 91.6


line true false branch
24 10 7 unless $element =~ /\A [+-]? (?: 0+ _* )+ [1-9]/mx
25 1 6 if $element->sprevious_sibling eq 'chmod'
26 1 5 if (eval { do { $element->sprevious_sibling->sprevious_sibling->sprevious_sibling->sprevious_sibling->sprevious_sibling } } || '') eq 'mkpath'
29 4 1 if ($element->parent->isa('PPI::Statement::Expression'))
36 1 3 if $working and ($working->children)[0] eq 'chmod'
37 3 0 if $working and ($working->children)[-3] eq 'mkpath'