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