| line |
true |
false |
branch |
|
32
|
0 |
10 |
@_ ? : |
|
33
|
0 |
6 |
@_ ? : |
|
34
|
0 |
7 |
@_ ? : |
|
45
|
0 |
7 |
if $REGISTRY{$pkg}{'start_mode_installed'} |
|
49
|
10 |
15 |
if exists $_[0]{'__START_MODE_SET_BY_RUNMODEDECLARE'} |
|
60
|
0 |
6 |
if $REGISTRY{$pkg}{'error_mode_installed'} |
|
63
|
4 |
15 |
if exists $_[0]{'__ERROR_MODE_SET_BY_RUNMODEDECLARE'} |
|
101
|
23 |
0 |
if (defined $name) { } |
|
106
|
1 |
22 |
if ($attr) |
|
133
|
0 |
265 |
unless length $char |
|
134
|
215 |
50 |
if ($char =~ /$char_rx/) { } |
|
144
|
49 |
1 |
length $name ? : |
|
151
|
0 |
0 |
unless lex_peek() eq "(" |
|
158
|
0 |
0 |
if (lex_peek() eq ")") |
|
167
|
0 |
6 |
unless $sigil eq "\$" or $sigil eq "\@" or $sigil eq "%" |
|
169
|
0 |
25 |
if $seen_slurpy |
|
172
|
6 |
19 |
if $sigil eq "\@" or $sigil eq "%" |
|
181
|
0 |
0 |
if (lex_peek() eq "=") |
|
189
|
0 |
0 |
if (lex_peek() eq ":") |
|
198
|
0 |
0 |
unless lex_peek() eq ")" or lex_peek() eq "," |
|
201
|
0 |
0 |
if (lex_peek() eq ",") |
|
216
|
0 |
0 |
if (lex_peek() ne "(") |
|
224
|
0 |
8 |
if ($c eq "(") |
|
227
|
1 |
7 |
if ($c eq ")") |
|
230
|
0 |
8 |
if ($c eq "\\") |
|
237
|
0 |
0 |
unless (length $c) |
|
249
|
0 |
1 |
unless (length $c) |
|
262
|
0 |
0 |
unless lex_peek() eq ":" |
|
269
|
0 |
0 |
if (lex_peek() eq ":") |
|
284
|
0 |
0 |
if (lex_peek() eq '{') { } |
|
286
|
14 |
9 |
if ($sigs) |
|
302
|
19 |
6 |
if ($s eq "\$") |
|
304
|
19 |
0 |
$s eq '$' ? : |
|
306
|
6 |
19 |
$s eq '@' ? : |
|
307
|
19 |
6 |
$s eq '$' ? : |
|
308
|
6 |
19 |
if ($s eq "\@") |
|
309
|
6 |
0 |
$s eq '@' ? : |
|
310
|
0 |
6 |
$s eq '$' ? : |