Branch Coverage

blib/lib/Perl/Lint/Policy/ValuesAndExpressions/ProhibitLeadingZeros.pm
Criterion Covered Total %
branch 41 48 85.4


line true false branch
16 5 8 if (my $this_policies_arg = $args->{'prohibit_leading_zeros'})
25 10 326 if (not $is_strict and $token_type == 70)
27 4 6 if ($token_data eq 'chmod')
28 2 2 if ($$tokens[++$i]{'type'} == 107)
35 2 4 if ($token_data eq 'dbmopen')
36 1 1 if ($$tokens[++$i]{'type'} == 107)
44 0 6 if ($token_type == 106)
48 4 2 if ($token_type == 104)
52 2 4 if ($comma_num == 2)
61 2 2 if ($token_data eq 'mkdir')
62 1 1 if ($$tokens[++$i]{'type'} == 107)
70 0 2 if ($token_type == 106)
74 2 0 if ($token_type == 104)
78 2 0 if ($comma_num == 1)
87 2 0 if ($token_data eq 'umask')
88 1 1 if ($$tokens[++$i]{'type'} == 107)
95 3 323 if (not $is_strict and $token_type == 122)
97 3 0 if ($token_data eq 'sysopen')
98 2 1 if ($$tokens[++$i]{'type'} == 107)
106 0 25 if ($token_type == 106)
110 9 16 if ($token_type == 104)
114 3 22 if ($comma_num == 3)
123 37 286 if ($token_type == 170)
126 30 7 if ($int =~ /\A-?0/ and (eval $int // 0) != 0)