| line |
true |
false |
branch |
|
152
|
0 |
21 |
unless $string =~ /$EXTRACT_VARS/ |
|
156
|
4 |
17 |
unless defined $1 |
|
169
|
7 |
43 |
if ($vspec eq ';') |
|
170
|
1 |
6 |
if ($optional++) |
|
179
|
0 |
29 |
unless $PVSPEC{$sigil} |
|
181
|
0 |
43 |
unless ($vname =~ /\A$BARE_VAR\z/) |
|
184
|
10 |
33 |
if ($optional) |
|
187
|
3 |
40 |
if ($$extra{$vname}) |
|
195
|
11 |
32 |
unless (%$spart) |
|
210
|
4 |
22 |
unless (@tmpargs) |
|
211
|
2 |
2 |
if (ref $val eq 'HASH' and $$val{'optional'}) { } |
|
219
|
1 |
7 |
if (@tmpargs) |
|
233
|
10 |
5 |
if ($args and reftype $args eq 'ARRAY') |
|
236
|
0 |
12 |
unless ($args and reftype $args eq 'HASH') |