| line |
true |
false |
branch |
|
15
|
0 |
5 |
if $DEBUG |
|
17
|
0 |
5 |
if $DEBUG |
|
20
|
0 |
9 |
if $DEBUG |
|
25
|
0 |
9 |
if $DEBUG |
|
28
|
0 |
5 |
if $DEBUG |
|
37
|
0 |
30 |
if $DEBUG |
|
47
|
0 |
999 |
if $DEBUG |
|
49
|
33 |
966 |
if ($char =~ /[^\w_{}\[\]:\@\$]/ and $tok) |
|
50
|
0 |
33 |
if $DEBUG |
|
61
|
170 |
8 |
if ($tok and !($char =~ /[\$\@]/) || length $tok == 1) |
|
62
|
0 |
170 |
if $DEBUG |
|
64
|
33 |
137 |
if ($char =~ /[':]/) |
|
68
|
1 |
32 |
if ($c and $c =~ /[\s\$\@]/) |
|
72
|
169 |
1 |
unless ($eot) |
|
78
|
55 |
742 |
if ($char =~ /[\$\@]/ or $tok) |
|
80
|
8 |
1 |
if ($tok and ($char =~ /[\$\@]/ and not $tok =~ /^[\$\@]+$/)) |
|
81
|
0 |
8 |
if $DEBUG |
|
91
|
0 |
55 |
if $DEBUG |
|
92
|
54 |
1 |
unless ($tok) |
|
97
|
53 |
37 |
unless $c =~ /\\/ |
|
99
|
0 |
37 |
if $DEBUG |
|
101
|
41 |
13 |
$ec % 2 == 0 ? : |
|
108
|
0 |
55 |
if $DEBUG |
|
109
|
41 |
14 |
if $capture |
|
114
|
25 |
5 |
if (wantarray) |
|
115
|
0 |
25 |
if $DEBUG |
|
118
|
0 |
5 |
if $DEBUG |