| 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
|
17 |
8 |
0 |
$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 |
0 |
$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' |
|
224
|
0 |
0 |
0 |
$_ && @{$_;} == 2 && '=>' eq $_->[1]->content && $_->[0]->isa('PPI::Token::Word') |
|
269
|
1 |
9 |
0 |
$package_statements and @{$package_statements;} |
|
279
|
0 |
5 |
1 |
$first_child and $package_address == &refaddr($first_child) |
|
321
|
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' |
|
201
|
0 |
0 |
0 |
$follower->isa('PPI::Structure::Constructor') or $follower->isa('PPI::Structure::Block') |
|
279
|
0 |
0 |
6 |
$package_address == &refaddr($node) or $first_child and $package_address == &refaddr($first_child) |
|
306
|
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') |
|
378
|
17 |
5 |
19 |
not @{$nodes;} or &refaddr($nodes->[-1]) != &refaddr($fragment) |