| line |
true |
false |
branch |
|
24
|
3 |
11 |
exists $ENV{'Variable::Declaration::LEVEL'} ? : |
|
|
7 |
14 |
exists $args{'level'} ? : |
|
66
|
0 |
5 |
unless ref $variable_ref |
|
67
|
0 |
5 |
unless my $info = $metadata{$variable_ref} |
|
89
|
9 |
49 |
unless $match->{'type_varlist'} |
|
92
|
11 |
38 |
if ($declaration eq 'const') { } |
|
93
|
7 |
4 |
unless defined $eq and defined $assign |
|
97
|
4 |
34 |
unless defined $eq and defined $assign or not defined $eq || defined $assign |
|
109
|
35 |
3 |
if $args->{'level'} >= 1 |
|
110
|
31 |
7 |
if $args->{'level'} == 2 |
|
111
|
4 |
34 |
if $args->{'declaration'} eq "const" |
|
120
|
2 |
36 |
$args->{'is_list_context'} ? : |
|
122
|
4 |
34 |
if $args->{'attributes'} |
|
123
|
24 |
14 |
if defined $args->{'assign'} |
|
132
|
24 |
7 |
unless $type |
|
143
|
24 |
11 |
unless $type |
|
166
|
4 |
34 |
$args->{'attributes'} ? : |
|
175
|
9 |
83 |
unless $src =~ /
\A
(?
(?&PerlOWS)
(?
(?
(?&PerlIdentifier)? (?&PerlOWS)
(?&PerlVariable)
| (?&PerlParenthesesList)
) (?&PerlOWS)
(?(?&PerlAttributes))? (?&PerlOWS)
)
(?=)? (?&PerlOWS)
(?(?&PerlConditionalExpression))?
) $PPR::GRAMMAR /ux |
|
204
|
9 |
41 |
if ($expression =~ / (?(?&PerlParenthesesList)) $PPR::GRAMMAR /ux) { } |
|
|
39 |
2 |
elsif (my $type_var = _parse_type_var($expression)) { } |
|
226
|
9 |
83 |
unless $expression =~ /
\A
(?&PerlOWS)
(?(?&PerlIdentifier) | (?&PerlCall) )? (?&PerlOWS)
(?(?:(?&PerlVariable)))
(?&PerlOWS)
\Z
$PPR::GRAMMAR
/ux |