| 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 |