| line |
true |
false |
branch |
|
56
|
1813 |
221 |
if (my($v, @k) = &{$vkgen;}($scratchpad)) |
|
57
|
0 |
1813 |
if ($typessub) { } |
|
61
|
0 |
1813 |
unless @k == $typeslen |
|
70
|
49 |
0 |
@_ ? : |
|
76
|
39961 |
1813 |
if (my($v, @k) = &{$vkgen;}($$src[2])) { } |
|
77
|
0 |
39961 |
if ($typessub) { } |
|
81
|
0 |
39961 |
unless @k == $typeslen |
|
94
|
49 |
0 |
wantarray ? : |
|
102
|
0 |
0 |
unless ref $types eq 'ARRAY' |
|
112
|
0 |
16 |
(caller 0)[8] & $locale_hints ? : |
|
118
|
0 |
0 |
(caller 0)[8] & $locale_hints ? : |
|
124
|
16 |
17 |
(caller 0)[8] & $int_hints ? : |
|
130
|
0 |
0 |
(caller 0)[8] & $int_hints ? : |
|
161
|
0 |
4 |
if (UNIVERSAL::isa($file, 'GLOB')) { } |
|
165
|
0 |
4 |
unless open $fh, '<', $file |
|
171
|
4 |
0 |
if (my(@k) = &$kgen()) |
|
172
|
0 |
4 |
unless @k == $typeslen |
|
184
|
32 |
60 |
if (wantarray) { } |
|
186
|
1 |
31 |
@_ ? : |
|
193
|
60 |
0 |
if (@src) |
|
200
|
56 |
0 |
if (my(@k) = &{$kgen;}) |
|
201
|
0 |
56 |
unless @k == $typeslen |
|
219
|
0 |
0 |
(caller 0)[8] & $locale_hints ? : |
|
225
|
0 |
0 |
(caller 0)[8] & $locale_hints ? : |
|
231
|
0 |
2 |
(caller 0)[8] & $int_hints ? : |
|
237
|
0 |
0 |
(caller 0)[8] & $int_hints ? : |