| line |
true |
false |
branch |
|
94
|
0 |
92 |
unless defined $variable and length $variable |
|
99
|
82 |
10 |
if (exists $SIGIL_MAP{$sigil}) { } |
|
123
|
19 |
10 |
if ($type eq 'HASH' or $type eq 'ARRAY' or $type eq 'IO' or $type eq 'CODE') { } |
|
137
|
14 |
16 |
ref $variable eq 'HASH' ? : |
|
140
|
29 |
1 |
if (@_ > 2) |
|
141
|
4 |
25 |
unless $self->_valid_for_type($initial_value, $type) |
|
149
|
22 |
4 |
ref $initial_value ? : |
|
176
|
19 |
42 |
ref $variable eq 'HASH' ? : |
|
181
|
2 |
59 |
unless exists $$namespace{$name} |
|
184
|
59 |
0 |
if (reftype $entry_ref eq 'GLOB') { } |
|
185
|
9 |
50 |
if ($type eq 'SCALAR') { } |
|
209
|
13 |
25 |
ref $variable eq 'HASH' ? : |
|
214
|
3 |
35 |
unless (exists $$namespace{$name}) |
|
221
|
1 |
2 |
if ($type eq 'ARRAY' and $name ne 'ISA') { } |
|
|
1 |
1 |
elsif ($type eq 'HASH') { } |
|
235
|
38 |
0 |
if (ref $entry_ref eq 'GLOB') { } |
|
239
|
0 |
0 |
if ($type eq 'CODE') { } |
|
261
|
0 |
6 |
ref $variable eq 'HASH' ? : |
|
277
|
1 |
5 |
if ($type eq 'SCALAR') { } |
|
|
0 |
5 |
elsif ($type eq 'ARRAY') { } |
|
|
1 |
4 |
elsif ($type eq 'HASH') { } |
|
|
3 |
1 |
elsif ($type eq 'CODE') { } |
|
|
1 |
0 |
elsif ($type eq 'IO') { } |
|
278
|
1 |
0 |
if $self->has_package_symbol($array_desc) |
|
279
|
0 |
1 |
if $self->has_package_symbol($hash_desc) |
|
280
|
0 |
1 |
if $self->has_package_symbol($code_desc) |
|
281
|
0 |
1 |
if $self->has_package_symbol($io_desc) |
|
285
|
0 |
0 |
if $self->has_package_symbol($hash_desc) |
|
286
|
0 |
0 |
if $self->has_package_symbol($code_desc) |
|
287
|
0 |
0 |
if $self->has_package_symbol($io_desc) |
|
291
|
1 |
0 |
if $self->has_package_symbol($array_desc) |
|
292
|
1 |
0 |
if $self->has_package_symbol($code_desc) |
|
293
|
0 |
1 |
if $self->has_package_symbol($io_desc) |
|
297
|
2 |
1 |
if $self->has_package_symbol($array_desc) |
|
298
|
1 |
2 |
if $self->has_package_symbol($hash_desc) |
|
299
|
1 |
2 |
if $self->has_package_symbol($io_desc) |
|
303
|
0 |
1 |
if $self->has_package_symbol($array_desc) |
|
304
|
0 |
1 |
if $self->has_package_symbol($hash_desc) |
|
305
|
1 |
0 |
if $self->has_package_symbol($code_desc) |
|
314
|
4 |
2 |
if defined $array |
|
315
|
1 |
5 |
if defined $hash |
|
316
|
2 |
4 |
if defined $code |
|
317
|
1 |
5 |
if defined $io |
|
333
|
0 |
0 |
unless defined $type_filter |
|
338
|
0 |
0 |
if ($type_filter eq 'CODE') { } |
|
343
|
0 |
0 |
ref $$namespace{$_} ? : |