| line |
true |
false |
branch |
|
33
|
17 |
5 |
unless (defined $meth or defined $func) |
|
39
|
1 |
21 |
unless $inv =~ /^ \s* \$ [\p{ID_Start}_] \p{ID_Continue}* \s* $/x |
|
42
|
18 |
3 |
if ($func) |
|
43
|
1 |
17 |
unless $func =~ /^ \s* [\p{ID_Start}_] \p{ID_Continue}* \s* $/x |
|
46
|
0 |
3 |
@_ ? : |
|
53
|
19 |
1 |
if ($meth) |
|
54
|
1 |
18 |
unless $meth =~ /^ \s* [\p{ID_Start}_] \p{ID_Continue}* \s* $/x |
|
57
|
0 |
18 |
@_ ? : |
|
84
|
22 |
0 |
if (defined $name) { } |
|
89
|
0 |
22 |
if ($attr) |
|
113
|
0 |
276 |
unless length $char |
|
114
|
223 |
53 |
if ($char =~ /$char_rx/) { } |
|
124
|
53 |
0 |
length $name ? : |
|
131
|
20 |
5 |
$invocant ? : |
|
132
|
0 |
0 |
unless lex_peek() eq "(" |
|
139
|
0 |
0 |
if (lex_peek() eq ")") |
|
147
|
1 |
5 |
unless $sigil eq "\$" or $sigil eq "\@" or $sigil eq "%" |
|
149
|
1 |
28 |
if $seen_slurpy |
|
152
|
5 |
23 |
if $sigil eq "\@" or $sigil eq "%" |
|
161
|
0 |
0 |
if (lex_peek() eq "=") |
|
169
|
0 |
0 |
if (lex_peek() eq ":") |
|
178
|
0 |
0 |
unless lex_peek() eq ")" or lex_peek() eq "," |
|
181
|
0 |
0 |
if (lex_peek() eq ",") |
|
196
|
0 |
0 |
if (lex_peek() ne "(") |
|
204
|
0 |
0 |
if ($c eq "(") |
|
207
|
0 |
0 |
if ($c eq ")") |
|
210
|
0 |
0 |
if ($c eq "\\") |
|
217
|
0 |
0 |
unless (length $c) |
|
229
|
0 |
0 |
unless (length $c) |
|
242
|
0 |
0 |
unless lex_peek() eq ":" |
|
249
|
0 |
0 |
if (lex_peek() eq ":") |
|
264
|
0 |
0 |
if (lex_peek() eq '{') { } |
|
266
|
22 |
0 |
if ($sigs) |
|
274
|
14 |
8 |
if (@$sigs and $sigs->[0]{'is_inv'}) |