| line |
true |
false |
branch |
|
29
|
9 |
9 |
if (@_ == 1) { } |
|
51
|
6 |
24 |
if (ref $info eq 'ARRAY') { } |
|
|
4 |
20 |
elsif (ref $info eq 'CODE') { } |
|
|
20 |
0 |
elsif (ref $info eq 'HASH') { } |
|
83
|
11 |
6 |
if ($name) |
|
84
|
9 |
2 |
unless $name =~ /::/ |
|
87
|
9 |
8 |
if ($XX_h) |
|
90
|
17 |
0 |
if (defined wantarray) { } |
|
106
|
0 |
79 |
unless $temp_name |
|
111
|
0 |
79 |
unless $temp_name |
|
112
|
0 |
79 |
unless defined $name |
|
117
|
60 |
19 |
if ($saved) |
|
121
|
0 |
79 |
unless $temp_name |
|
126
|
0 |
8 |
if (wantarray) |
|
141
|
0 |
1 |
unless defined $pack and ref $to_setup eq 'HASH' |
|
157
|
6 |
1 |
if (@_) |
|
158
|
1 |
5 |
if (ref $_[0] eq 'HASH') { } |
|
160
|
0 |
1 |
if (wantarray) |
|
177
|
6 |
0 |
if $shift_hashref |
|
181
|
5 |
2 |
if (defined $proto) { } |
|
|
1 |
2 |
elsif (defined $name and length $name) { } |
|
213
|
14 |
3 |
if ($flags & 1) |
|
216
|
11 |
3 |
if (substr($linestr, $offset, 2) eq '::') |
|
220
|
11 |
3 |
if (my $len = toke_scan_word($offset, $flags & 9)) |
|
225
|
12 |
5 |
if ($flags & 2) |
|
228
|
9 |
3 |
if (substr($linestr, $offset, 1) eq '(') |
|
232
|
5 |
4 |
$found_name ? : |
|
244
|
17 |
0 |
if (substr($linestr, $offset, 1) eq '{') { } |
|
247
|
17 |
0 |
if (defined $ret and length $ret) |
|
261
|
14 |
3 |
if ($flags & 1) |
|
264
|
11 |
3 |
if (toke_scan_word($offset, $flags & 9)) |
|
277
|
34 |
92 |
if (ref $handlers eq 'CODE') { } |
|
|
92 |
0 |
elsif (ref $handlers eq 'HASH') { } |
|
281
|
76 |
16 |
if ($handlers->{$type}) |