| line |
!l |
l&&!r |
l&&r |
condition |
|
81
|
11 |
0 |
8 |
$iter->isa("PPI::Token::Structure") and $iter eq ";"
|
|
82
|
9 |
2 |
0 |
$iter->isa("PPI::Token::Operator") and $MIN_PRECEDENCE_TO_TERMINATE_PARENLESS_ARG_LIST <= precedence_of($iter)
|
|
97
|
18 |
0 |
8 |
$node->isa("PPI::Token::Operator") and $node eq ',' || $node eq '=>'
|
|
125
|
0 |
0 |
0 |
$element and !is_ppi_simple_statement($element) || $element->parent && $element->parent->isa('PPI::Structure::List')
|
|
165
|
0 |
0 |
0 |
not $element->specialized and $element->schildren > 2
|
|
167
|
0 |
0 |
4 |
$pragma = $element->pragma and $pragma eq "constant"
|
|
174
|
0 |
0 |
0 |
$supposed_constant_function eq 'const' || $supposed_constant_function =~ / \A Readonly \b /x and $declaring_scope eq 'our' || $declaring_scope eq 'my'
|
|
196
|
3 |
0 |
1 |
$follower->isa("PPI::Token::Operator") and $follower->content eq "+"
|
|
229
|
0 |
0 |
5 |
$_ && @{$_;} == 2 && '=>' eq $_->[1]->content && $_->[0]->isa('PPI::Token::Word')
|
|
274
|
1 |
0 |
9 |
$package_statements and @{$package_statements;}
|
|
284
|
0 |
5 |
1 |
$first_child and $package_address == builtin::refaddr($first_child)
|
|
326
|
10 |
0 |
44 |
not $block and my $component = shift @components
|
| line |
l |
!l&&r |
!l&&!r |
condition |
|
97
|
6 |
2 |
0 |
$node eq ',' || $node eq '=>'
|
|
125
|
0 |
0 |
0 |
!is_ppi_simple_statement($element) || $element->parent && $element->parent->isa('PPI::Structure::List')
|
|
174
|
0 |
0 |
0 |
$supposed_constant_function eq 'const' || $supposed_constant_function =~ / \A Readonly \b /x
|
|
|
0 |
0 |
0 |
$declaring_scope eq 'our' || $declaring_scope eq 'my'
|
|
206
|
3 |
0 |
1 |
$follower->isa("PPI::Structure::Constructor") or $follower->isa("PPI::Structure::Block")
|
|
284
|
0 |
1 |
5 |
$package_address == builtin::refaddr($node) or $first_child and $package_address == builtin::refaddr($first_child)
|
|
311
|
4 |
2 |
125 |
$child->isa("PPI::Statement::Compound") or $child->isa("PPI::Statement::Given")
|
|
|
6 |
4 |
121 |
$child->isa("PPI::Statement::Compound") or $child->isa("PPI::Statement::Given") or $child->isa("PPI::Statement::When")
|
|
383
|
17 |
5 |
19 |
not @{$nodes;} or builtin::refaddr($nodes->[-1]) != builtin::refaddr($fragment)
|