Branch Coverage

blib/lib/Package/Stash/PP.pm
Criterion Covered Total %
branch 69 84 82.1


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