| line |
true |
false |
branch |
|
39
|
0 |
11 |
@_ ? : |
|
40
|
0 |
6 |
@_ ? : |
|
41
|
0 |
8 |
@_ ? : |
|
52
|
0 |
8 |
if $REGISTRY{$pkg}{'start_mode_installed'} |
|
56
|
10 |
16 |
if exists $_[0]{'__START_MODE_SET_BY_RUNMODEDECLARE'} |
|
67
|
0 |
6 |
if $REGISTRY{$pkg}{'error_mode_installed'} |
|
70
|
4 |
15 |
if exists $_[0]{'__ERROR_MODE_SET_BY_RUNMODEDECLARE'} |
|
106
|
1 |
25 |
unless my $body = parse_body($sig) |
|
108
|
25 |
0 |
if (defined $name) { } |
|
113
|
1 |
24 |
if ($attr) |
|
140
|
0 |
304 |
unless length $char |
|
141
|
245 |
59 |
if ($char =~ /$char_rx/) { } |
|
151
|
58 |
1 |
length $name ? : |
|
159
|
0 |
0 |
unless lex_peek() eq "(" |
|
166
|
0 |
0 |
if (lex_peek() eq ")") |
|
174
|
0 |
6 |
unless $sigil eq "\$" or $sigil eq "\@" or $sigil eq "%" |
|
176
|
0 |
29 |
if $seen_slurpy |
|
179
|
6 |
23 |
if $sigil eq "\@" or $sigil eq "%" |
|
188
|
0 |
0 |
if (lex_peek() eq "=") |
|
196
|
0 |
0 |
if (lex_peek() eq ":") |
|
206
|
1 |
28 |
unless $c eq ")" or $c eq "," |
|
209
|
0 |
0 |
if (lex_peek() eq ",") |
|
224
|
0 |
0 |
if (lex_peek() ne "(") |
|
232
|
0 |
8 |
if ($c eq "(") |
|
235
|
1 |
7 |
if ($c eq ")") |
|
238
|
0 |
8 |
if ($c eq "\\") |
|
245
|
0 |
0 |
unless (length $c) |
|
257
|
0 |
1 |
unless (length $c) |
|
270
|
0 |
0 |
unless lex_peek() eq ":" |
|
277
|
0 |
0 |
if (lex_peek() eq ":") |
|
293
|
1 |
26 |
unless $c eq "{" |
|
296
|
26 |
0 |
if ($sigs) |
|
313
|
21 |
6 |
if ($s eq "\$") |
|
315
|
21 |
0 |
$s eq '$' ? : |
|
317
|
6 |
21 |
$s eq '@' ? : |
|
318
|
21 |
6 |
$s eq '$' ? : |
|
319
|
6 |
21 |
if ($s eq "\@") |
|
320
|
6 |
0 |
$s eq '@' ? : |
|
321
|
0 |
6 |
$s eq '$' ? : |