| line |
true |
false |
branch |
|
16
|
46 |
64 |
if $type eq "PPI::Token::Whitespace" |
|
18
|
58 |
6 |
if ($type eq "PPI::Token::Symbol") |
|
20
|
58 |
0 |
if ($str =~ /^[\$\@]\w+$/) |
|
28
|
1 |
5 |
if ($type eq "PPI::Token::Cast") |
|
29
|
0 |
1 |
unless $tok->content eq "\@" |
|
34
|
0 |
1 |
unless $type eq "PPI::Token::Symbol" and $str =~ /^\$\w+$/ |
|
42
|
2 |
3 |
if ($type eq "PPI::Token::Number") |
|
44
|
2 |
0 |
if ($str =~ /^[1-9][0-9]*$/) |
|
49
|
3 |
0 |
if ($type eq "PPI::Token::Magic") |
|
51
|
2 |
1 |
if ($str eq "_") |
|
55
|
1 |
0 |
if ($str eq "\$_") |
|
71
|
19 |
2 |
if ($decl) |
|
86
|
2 |
62 |
if ($type eq "skip") |
|
90
|
2 |
60 |
if ($type eq "skip_num") |
|
103
|
1 |
58 |
$elem->{'cast'} ? : |
|
|
1 |
59 |
$elem->sigil eq '@' ? : |