| line |
true |
false |
branch |
|
32
|
13 |
5 |
unless (defined $meth or defined $func) |
|
38
|
1 |
17 |
unless $inv =~ /^ \s* \$ [\p{ID_Start}_] \p{ID_Continue}* \s* $/x |
|
41
|
14 |
3 |
if ($func) |
|
42
|
1 |
13 |
unless $func =~ /^ \s* [\p{ID_Start}_] \p{ID_Continue}* \s* $/x |
|
45
|
0 |
3 |
@_ ? : |
|
52
|
15 |
1 |
if ($meth) |
|
53
|
1 |
14 |
unless $meth =~ /^ \s* [\p{ID_Start}_] \p{ID_Continue}* \s* $/x |
|
56
|
0 |
16 |
@_ ? : |
|
83
|
19 |
0 |
if (defined $name) { } |
|
88
|
0 |
19 |
if ($attr) |
|
112
|
0 |
226 |
unless length $char |
|
113
|
185 |
41 |
if ($char =~ /$char_rx/) { } |
|
123
|
41 |
0 |
length $name ? : |
|
130
|
16 |
3 |
$invocant ? : |
|
131
|
0 |
0 |
unless lex_peek() eq "(" |
|
138
|
0 |
0 |
if (lex_peek() eq ")") |
|
146
|
0 |
4 |
unless $sigil eq "\$" or $sigil eq "\@" or $sigil eq "%" |
|
148
|
0 |
22 |
if $seen_slurpy |
|
151
|
4 |
18 |
if $sigil eq "\@" or $sigil eq "%" |
|
160
|
0 |
0 |
if (lex_peek() eq "=") |
|
168
|
0 |
0 |
if (lex_peek() eq ":") |
|
177
|
0 |
0 |
unless lex_peek() eq ")" or lex_peek() eq "," |
|
180
|
0 |
0 |
if (lex_peek() eq ",") |
|
195
|
0 |
0 |
if (lex_peek() ne "(") |
|
203
|
0 |
0 |
if ($c eq "(") |
|
206
|
0 |
0 |
if ($c eq ")") |
|
209
|
0 |
0 |
if ($c eq "\\") |
|
216
|
0 |
0 |
unless (length $c) |
|
228
|
0 |
0 |
unless (length $c) |
|
241
|
0 |
0 |
unless lex_peek() eq ":" |
|
248
|
0 |
0 |
if (lex_peek() eq ":") |
|
263
|
0 |
0 |
if (lex_peek() eq '{') { } |
|
265
|
19 |
0 |
if ($sigs) |