| line |
true |
false |
branch |
|
24
|
3 |
11 |
exists $ENV{'Variable::Declaration::LEVEL'} ? : |
|
|
7 |
14 |
exists $args{'level'} ? : |
|
67
|
9 |
39 |
unless $match->{'type_varlist'} |
|
70
|
10 |
29 |
if ($declaration eq 'const') { } |
|
71
|
7 |
3 |
unless defined $eq and defined $assign |
|
75
|
4 |
25 |
unless defined $eq and defined $assign or not defined $eq || defined $assign |
|
86
|
35 |
4 |
if $args->{'level'} >= 1 |
|
87
|
29 |
10 |
if $args->{'level'} == 2 |
|
88
|
4 |
35 |
if $args->{'declaration'} eq 'const' |
|
97
|
6 |
33 |
$args->{'is_list_context'} ? : |
|
99
|
3 |
36 |
if $args->{'attributes'} |
|
100
|
18 |
21 |
if defined $args->{'assign'} |
|
109
|
23 |
9 |
unless $type |
|
120
|
24 |
14 |
unless $type |
|
138
|
9 |
73 |
unless $src =~ /
\A
(?
(?&PerlOWS)
(?
(?
(?&PerlIdentifier)? (?&PerlOWS)
(?&PerlVariable)
| (?&PerlParenthesesList)
) (?&PerlOWS)
(?(?&PerlAttributes))? (?&PerlOWS)
)
(?=)? (?&PerlOWS)
(?(?&PerlConditionalExpression))?
) $PPR::GRAMMAR /ux |
|
167
|
9 |
31 |
if ($expression =~ / (?(?&PerlParenthesesList)) $PPR::GRAMMAR /ux) { } |
|
|
29 |
2 |
elsif (my $type_var = _parse_type_var($expression)) { } |
|
189
|
6 |
68 |
unless $expression =~ /
\A
(?&PerlOWS)
(?(?&PerlIdentifier))? (?&PerlOWS)
(?(?:(?&PerlVariable)))
\Z
$PPR::GRAMMAR
/ux |