| line |
true |
false |
branch |
|
18
|
46 |
64 |
if $type eq "PPI::Token::Whitespace" |
|
20
|
58 |
6 |
if ($type eq "PPI::Token::Symbol") |
|
22
|
58 |
0 |
if ($str =~ /^[\$\@]\w+$/) |
|
30
|
1 |
5 |
if ($type eq "PPI::Token::Cast") |
|
31
|
0 |
1 |
unless $tok->content eq "\@" |
|
36
|
0 |
1 |
unless $type eq "PPI::Token::Symbol" and $str =~ /^\$\w+$/ |
|
44
|
2 |
3 |
if ($type eq "PPI::Token::Number") |
|
46
|
2 |
0 |
if ($str =~ /^[1-9][0-9]*$/) |
|
51
|
3 |
0 |
if ($type eq "PPI::Token::Magic") |
|
53
|
2 |
1 |
if ($str eq "_") |
|
57
|
1 |
0 |
if ($str eq "\$_") |
|
73
|
19 |
2 |
if ($decl) |
|
88
|
2 |
62 |
if ($type eq "assign::skip") |
|
92
|
2 |
60 |
if ($type eq "assign::skip_num") |
|
105
|
1 |
58 |
$elem->{'cast'} ? : |
|
|
1 |
59 |
$elem->sigil eq '@' ? : |