| blib/lib/Attribute/Tie.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 24 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 1 | 1 | $_[0] ? : |
| 1 | 2 | ref $_[0] eq 'CODE' ? : | |
| 25 | 3 | 9 | if $MOD2TIE{$mod2tie} |
| 30 | 0 | 9 | if defined &{$mod2tie . "::TIE$type";} |
| 32 | 3 | 6 | if defined &{'Tie::' . $mod2tie . "::TIE$type";} |
| 36 | 2 | 4 | unless $@ |
| 40 | 1 | 3 | unless $@ |
| 58 | 12 | 0 | ref $data ? : |
| 60 | 1 | 0 | ref $ref eq 'SCALAR' ? : |
| 2 | 1 | ref $ref eq 'ARRAY' ? : | |
| 6 | 3 | ref $ref eq 'HASH' ? : | |
| 65 | 6 | 3 | if not $obj |