| line |
true |
false |
branch |
|
41
|
4 |
58 |
if (not defined $package or ref $package and &reftype($package) ne 'HASH') { } |
|
|
1 |
57 |
elsif (ref $package and &reftype($package) eq 'HASH') { } |
|
|
47 |
10 |
elsif ($package =~ /\A[0-9A-Z_a-z]+(?:::[0-9A-Z_a-z]+)*\z/) { } |
|
66
|
2 |
47 |
unless &blessed($_[0]) |
|
69
|
0 |
47 |
unless defined $_[0]{'package'} |
|
74
|
0 |
372 |
unless &blessed($_[0]) |
|
82
|
327 |
45 |
if defined $_[0]{'namespace'} |
|
108
|
88 |
271 |
if (ref $variable eq 'HASH') { } |
|
112
|
0 |
271 |
unless defined $variable and length $variable |
|
117
|
245 |
26 |
if (exists $SIGIL_MAP{$sigil}) { } |
|
128
|
3 |
356 |
if $ret[0] =~ /::/ |
|
137
|
43 |
25 |
if ($type eq 'HASH' or $type eq 'ARRAY' or $type eq 'IO' or $type eq 'CODE') { } |
|
152
|
68 |
9 |
if (@_ > 2) |
|
153
|
9 |
59 |
unless _valid_for_type($initial_value, $type) |
|
157
|
2 |
57 |
if ($^P and ($^P & 16 and $sigil eq "&")) |
|
161
|
1 |
1 |
unless defined $filename |
|
202
|
59 |
9 |
if (@_ > 2) { } |
|
204
|
53 |
6 |
ref $initial_value ? : |
|
217
|
3 |
6 |
if ($type eq 'ARRAY') { } |
|
|
2 |
4 |
elsif ($type eq 'HASH') { } |
|
|
3 |
1 |
elsif ($type eq 'SCALAR') { } |
|
|
1 |
0 |
elsif ($type eq 'IO') { } |
|
|
0 |
0 |
elsif ($type eq 'CODE') { } |
|
249
|
4 |
120 |
unless exists $namespace->{$name} |
|
252
|
120 |
0 |
if (&reftype($entry_ref) eq 'GLOB') { } |
|
253
|
31 |
89 |
if ($type eq 'SCALAR') { } |
|
282
|
13 |
132 |
unless (exists $namespace->{$name}) |
|
283
|
7 |
6 |
if ($opts{'vivify'}) { } |
|
293
|
138 |
1 |
if (ref $entry_ref eq 'GLOB') { } |
|
297
|
1 |
0 |
if ($type eq 'CODE') { } |
|
298
|
0 |
1 |
if (defined $self->{'package'}) |
|
305
|
0 |
1 |
if (&blessed($namespace) and $namespace->isa('Package::Anon')) { } |
|
345
|
0 |
10 |
unless $desc{$type} |
|
347
|
40 |
10 |
if $type ne $_ |
|
353
|
0 |
4 |
if not defined $values{'SCALAR'} and $type ne "SCALAR" and "" |
|
371
|
4 |
18 |
unless defined $type_filter |
|
378
|
7 |
11 |
if ($type_filter eq 'CODE') { } |
|
|
3 |
8 |
elsif ($type_filter eq 'SCALAR') { } |
|
384
|
53 |
0 |
unless ref \$namespace->{$_} ne "GLOB" |
|
394
|
17 |
0 |
if ref $entry eq "GLOB" |
|
402
|
60 |
0 |
if ref \$namespace->{$_} eq "GLOB" |
|
411
|
2 |
4 |
unless defined $type_filter |