| line |
true |
false |
branch |
|
234
|
0 |
9328 |
if $configuration_exceptions->has_exceptions
|
|
239
|
275 |
997 |
if _name_is_exempt($name, $exemption_regexes)
|
|
241
|
264 |
733 |
unless $name =~ /$capitalization_regex/msx
|
|
246
|
0 |
1166 |
if ($configuration_exceptions->has_exceptions)
|
|
259
|
9236 |
92 |
if (my $tag_properties = $CAPITALIZATION_SCHEME_TAGS{$capitalization}) { }
|
|
|
0 |
92 |
elsif ($capitalization =~ / \A : /msx) { }
|
|
279
|
0 |
92 |
unless (eval {
|
|
307
|
0 |
47530 |
unless (eval {
|
|
330
|
275 |
7761 |
if $name =~ /$regex/msx
|
|
342
|
795 |
2207 |
if ($elem->isa("PPI::Statement::Variable"))
|
|
346
|
250 |
1957 |
if ($elem->isa("PPI::Statement::Sub"))
|
|
350
|
9 |
1948 |
if (my(@names) = get_constant_name_elements_from_declaring_statement($elem))
|
|
357
|
139 |
1809 |
if ($elem->isa("PPI::Statement::Package"))
|
|
361
|
142 |
1667 |
if ($elem->isa("PPI::Statement::Compound") and $elem->type eq "foreach")
|
|
367
|
70 |
1597 |
if ($elem->isa("PPI::Token::Label"))
|
|
381
|
242 |
556 |
if ($elem->type eq 'local') { }
|
|
|
140 |
416 |
elsif ($elem->type eq 'our') { }
|
|
384
|
36 |
206 |
if $name =~ /$PACKAGE_REGEX/msx
|
|
385
|
104 |
102 |
if is_perl_global($name)
|
|
409
|
133 |
283 |
if (not $parent or $parent->isa('PPI::Document')) { }
|
|
420
|
68 |
215 |
if (_is_directly_in_scope_block($elem)) { }
|
|
451
|
34 |
216 |
if $elem->isa("PPI::Statement::Scheduled")
|
|
478
|
27 |
150 |
if $violation
|
|
490
|
0 |
142 |
unless $second_element
|
|
492
|
108 |
34 |
if ($second_element->isa('PPI::Token::Word')) { }
|
|
500
|
0 |
142 |
unless $symbol
|
|
501
|
0 |
142 |
unless $symbol->isa("PPI::Token::Symbol")
|
|
505
|
0 |
142 |
if ($type eq 'local') { }
|
|
|
34 |
108 |
elsif ($type eq 'our') { }
|
|
508
|
0 |
0 |
if $name =~ /$PACKAGE_REGEX/msx
|
|
509
|
0 |
0 |
if is_perl_global($name)
|
|
530
|
2 |
68 |
if _is_not_real_label($elem)
|
|
539
|
264 |
1008 |
if (my $message = &$test($to_match))
|
|
567
|
138 |
145 |
if is_in_subroutine($elem)
|
|
570
|
68 |
77 |
unless $parent->isa("PPI::Structure::Block")
|
|
573
|
0 |
77 |
unless $grand_parent
|
|
574
|
0 |
77 |
if $grand_parent->isa("PPI::Document")
|
|
576
|
0 |
77 |
unless $grand_parent->isa("PPI::Statement::Compound")
|
|
579
|
0 |
77 |
unless $type
|
|
580
|
9 |
68 |
if $type ne "continue"
|
|
584
|
0 |
68 |
if $great_grand_parent and not $great_grand_parent->isa("PPI::Document")
|
|
588
|
68 |
0 |
unless $prior_to_grand_parent
|
|
589
|
0 |
0 |
unless $prior_to_grand_parent->isa("PPI::Token::Word")
|