| blib/lib/OOP/Perlish/Class/Accessor/UnitTests/HashRef.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 3 | 6 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 8 | 0 | if ref $$self{'accessor'}->value eq 'HASH' |
| 34 | 0 | 1 | unless ok !exists($$self{'accessor'}->value->{'foo'}), 'cannot mutate instance reference' |
| 44 | 0 | 1 | unless ok exists $$self{'accessor'}->value->{'foo'}, 'can mutate mutable instance reference' |