| line |
true |
false |
branch |
|
37
|
0 |
11 |
@_ ? : |
|
38
|
0 |
6 |
@_ ? : |
|
39
|
0 |
8 |
@_ ? : |
|
50
|
0 |
8 |
if $REGISTRY{$pkg}{'start_mode_installed'} |
|
54
|
10 |
16 |
if exists $_[0]{'__START_MODE_SET_BY_RUNMODEDECLARE'} |
|
65
|
0 |
6 |
if $REGISTRY{$pkg}{'error_mode_installed'} |
|
68
|
4 |
15 |
if exists $_[0]{'__ERROR_MODE_SET_BY_RUNMODEDECLARE'} |
|
106
|
25 |
0 |
if (defined $name) { } |
|
111
|
1 |
24 |
if ($attr) |
|
138
|
0 |
283 |
unless length $char |
|
139
|
230 |
53 |
if ($char =~ /$char_rx/) { } |
|
149
|
52 |
1 |
length $name ? : |
|
157
|
0 |
0 |
unless lex_peek() eq "(" |
|
164
|
0 |
0 |
if (lex_peek() eq ")") |
|
172
|
0 |
6 |
unless $sigil eq "\$" or $sigil eq "\@" or $sigil eq "%" |
|
174
|
0 |
26 |
if $seen_slurpy |
|
177
|
6 |
20 |
if $sigil eq "\@" or $sigil eq "%" |
|
186
|
0 |
0 |
if (lex_peek() eq "=") |
|
194
|
0 |
0 |
if (lex_peek() eq ":") |
|
203
|
0 |
0 |
unless lex_peek() eq ")" or lex_peek() eq "," |
|
206
|
0 |
0 |
if (lex_peek() eq ",") |
|
221
|
0 |
0 |
if (lex_peek() ne "(") |
|
229
|
0 |
8 |
if ($c eq "(") |
|
232
|
1 |
7 |
if ($c eq ")") |
|
235
|
0 |
8 |
if ($c eq "\\") |
|
242
|
0 |
0 |
unless (length $c) |
|
254
|
0 |
1 |
unless (length $c) |
|
267
|
0 |
0 |
unless lex_peek() eq ":" |
|
274
|
0 |
0 |
if (lex_peek() eq ":") |
|
289
|
0 |
0 |
if (lex_peek() eq '{') { } |
|
291
|
25 |
0 |
if ($sigs) |
|
307
|
20 |
6 |
if ($s eq "\$") |
|
309
|
20 |
0 |
$s eq '$' ? : |
|
311
|
6 |
20 |
$s eq '@' ? : |
|
312
|
20 |
6 |
$s eq '$' ? : |
|
313
|
6 |
20 |
if ($s eq "\@") |
|
314
|
6 |
0 |
$s eq '@' ? : |
|
315
|
0 |
6 |
$s eq '$' ? : |