| blib/lib/OOP/Perlish/Class/Accessor/UnitTests/Object.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 8 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 32 | 0 | 1 | unless ok !$$self{'accessor'}->value, 'Negative assertion: cannot set something that is not an object' |
| 106 | 2 | 0 | if ref($o) =~ /File::Temp/ |
| 117 | 0 | 2 | if ref($o) =~ /File::Temp/ |
| 149 | 0 | 1 | unless ok !$undef, 'when nothing has been defined, we get undef for scalar' |