line |
true |
false |
branch |
32
|
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/) { } |
57
|
2 |
47 |
unless &blessed($_[0]) |
60
|
0 |
47 |
unless defined $_[0]{'package'} |
65
|
0 |
372 |
unless &blessed($_[0]) |
73
|
327 |
45 |
if defined $_[0]{'namespace'} |
99
|
88 |
271 |
if (ref $variable eq 'HASH') { } |
103
|
0 |
271 |
unless defined $variable and length $variable |
108
|
245 |
26 |
if (exists $SIGIL_MAP{$sigil}) { } |
119
|
3 |
356 |
if $ret[0] =~ /::/ |
128
|
43 |
25 |
if ($type eq 'HASH' or $type eq 'ARRAY' or $type eq 'IO' or $type eq 'CODE') { } |
143
|
68 |
9 |
if (@_ > 2) |
144
|
9 |
59 |
unless _valid_for_type($initial_value, $type) |
148
|
2 |
57 |
if ($^P and ($^P & 16 and $sigil eq '&')) |
152
|
1 |
1 |
unless defined $filename |
193
|
59 |
9 |
if (@_ > 2) { } |
195
|
53 |
6 |
ref $initial_value ? : |
208
|
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') { } |
240
|
4 |
120 |
unless exists $namespace->{$name} |
243
|
120 |
0 |
if (&reftype($entry_ref) eq 'GLOB') { } |
244
|
31 |
89 |
if ($type eq 'SCALAR') { } |
273
|
13 |
132 |
unless (exists $namespace->{$name}) |
274
|
7 |
6 |
if ($opts{'vivify'}) { } |
284
|
138 |
1 |
if (ref $entry_ref eq 'GLOB') { } |
288
|
1 |
0 |
if ($type eq 'CODE') { } |
289
|
0 |
1 |
if (defined $self->{'package'}) |
296
|
0 |
1 |
if (&blessed($namespace) and $namespace->isa('Package::Anon')) { } |
336
|
0 |
10 |
unless $desc{$type} |
338
|
40 |
10 |
if $type ne $_ |
344
|
0 |
4 |
if not defined $values{'SCALAR'} and $type ne 'SCALAR' and 0 |
362
|
4 |
18 |
unless defined $type_filter |
369
|
7 |
11 |
if ($type_filter eq 'CODE') { } |
|
3 |
8 |
elsif ($type_filter eq 'SCALAR') { } |
375
|
53 |
0 |
unless ref \$namespace->{$_} ne 'GLOB' |
385
|
17 |
0 |
if ref $entry eq 'GLOB' |
393
|
60 |
0 |
if ref \$namespace->{$_} eq 'GLOB' |
402
|
2 |
4 |
unless defined $type_filter |