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) { } |