Branch Coverage

blib/lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitLeadingZeros.pm
Criterion Covered Total %
branch 47 68 69.1


line true false branch
42 2 61 unless $elem =~ /$LEADING_RX/
43 17 44 if $self->{'_strict'}
44 6 38 if $self->_is_first_argument_of_chmod_or_umask($elem)
45 2 36 if $self->_is_second_argument_of_mkdir($elem)
46 4 32 if $self->_is_second_argument_of_mkfifo($elem)
47 2 30 if $self->_is_third_argument_of_dbmopen($elem)
48 4 26 if $self->_is_fourth_argument_of_sysopen($elem)
66 0 44 unless $previous_token
77 0 38 unless $previous_token
78 26 12 if $previous_token->content ne $Perl::Critic::Policy::ValuesAndExpressions::ProhibitLeadingZeros::COMMA
83 0 12 unless $previous_token
87 0 12 unless $previous_token
97 0 36 unless $previous_token
98 26 10 if $previous_token->content ne $Perl::Critic::Policy::ValuesAndExpressions::ProhibitLeadingZeros::COMMA
103 0 10 unless $previous_token
107 0 10 unless $previous_token
118 0 32 unless $previous_token
119 26 6 if $previous_token->content ne $Perl::Critic::Policy::ValuesAndExpressions::ProhibitLeadingZeros::COMMA
124 0 6 unless $previous_token
129 0 6 unless $previous_token
130 2 4 if $previous_token->content ne $Perl::Critic::Policy::ValuesAndExpressions::ProhibitLeadingZeros::COMMA
135 0 4 unless $previous_token
139 0 4 unless $previous_token
149 0 30 unless $previous_token
150 26 4 if $previous_token->content ne $Perl::Critic::Policy::ValuesAndExpressions::ProhibitLeadingZeros::COMMA
159 0 4 unless $previous_token
160 0 4 if $previous_token->content ne $Perl::Critic::Policy::ValuesAndExpressions::ProhibitLeadingZeros::COMMA
165 0 4 unless $previous_token
170 0 4 unless $previous_token
171 0 4 if $previous_token->content ne $Perl::Critic::Policy::ValuesAndExpressions::ProhibitLeadingZeros::COMMA
176 0 4 unless $previous_token
180 0 4 unless $previous_token
183 1 3 if ($previous_token->content eq "my")
186 0 1 unless $previous_token