Branch Coverage

blib/lib/Petal/CodePerl/Expr/DerefTAL.pm
Criterion Covered Total %
branch 8 22 36.3


line true false branch
21 0 1 unless ref $ref
23 0 1 if ($self->getStrict) { }
25 0 0 reftype $ref eq 'ARRAY' ? :
0 0 &Scalar::Util::blessed($ref) ? :
31 0 1 reftype $ref eq 'ARRAY' ? :
0 1 &Scalar::Util::blessed(\$ref) && (UNIVERSAL::can($ref, $key) || UNIVERSAL::can($ref, 'AUTOLOAD')) ? :
46 1 0 if ($key =~ /^[a-z_][a-z0-9_-]*/i) { }
0 0 elsif ($key =~ /^\d+$/) { }
57 0 1 if (not $number || $method) { }
0 1 elsif ($number) { }
71 0 1 if ($self->getStrict) { }