| line |
true |
false |
branch |
|
31
|
11 |
5 |
unless (defined $meth or defined $func) |
|
37
|
1 |
15 |
unless $inv =~ /^ \s* \$ [\p{ID_Start}_] \p{ID_Continue}* \s* $/x |
|
40
|
12 |
3 |
if ($func) |
|
41
|
1 |
11 |
unless $func =~ /^ \s* [\p{ID_Start}_] \p{ID_Continue}* \s* $/x |
|
44
|
0 |
3 |
@_ ? : |
|
51
|
13 |
1 |
if ($meth) |
|
52
|
1 |
12 |
unless $meth =~ /^ \s* [\p{ID_Start}_] \p{ID_Continue}* \s* $/x |
|
55
|
0 |
14 |
@_ ? : |
|
77
|
17 |
0 |
if (defined $name) { } |
|
82
|
0 |
17 |
if ($attr) |
|
106
|
0 |
202 |
unless length $char |
|
107
|
166 |
36 |
if ($char =~ /$char_rx/) { } |
|
117
|
36 |
0 |
length $name ? : |
|
124
|
14 |
3 |
$invocant ? : |
|
125
|
0 |
0 |
unless lex_peek() eq "(" |
|
132
|
0 |
0 |
if (lex_peek() eq ")") |
|
140
|
0 |
3 |
unless $sigil eq "\$" or $sigil eq "\@" or $sigil eq "%" |
|
142
|
0 |
19 |
if $seen_slurpy |
|
145
|
3 |
16 |
if $sigil eq "\@" or $sigil eq "%" |
|
154
|
0 |
0 |
if (lex_peek() eq "=") |
|
162
|
0 |
0 |
if (lex_peek() eq ":") |
|
171
|
0 |
0 |
unless lex_peek() eq ")" or lex_peek() eq "," |
|
174
|
0 |
0 |
if (lex_peek() eq ",") |
|
189
|
0 |
0 |
if (lex_peek() ne "(") |
|
197
|
0 |
0 |
if ($c eq "(") |
|
200
|
0 |
0 |
if ($c eq ")") |
|
203
|
0 |
0 |
if ($c eq "\\") |
|
210
|
0 |
0 |
unless (length $c) |
|
222
|
0 |
0 |
unless (length $c) |
|
235
|
0 |
0 |
unless lex_peek() eq ":" |
|
242
|
0 |
0 |
if (lex_peek() eq ":") |
|
257
|
0 |
0 |
if (lex_peek() eq '{') { } |
|
259
|
17 |
0 |
if ($sigs) |