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