| blib/lib/EntityModel/Class/Accessor/Hash.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 18 | 22.2 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 0 | 2 | if (my $pre = $opt{'pre'}) { } |
| 39 | 0 | 0 | unless &$pre($self, @_) |
| 41 | 0 | 0 | if (@_) |
| 42 | 0 | 0 | ref $_[0] eq 'HASH' ? : |
| 44 | 0 | 0 | unless ($$self{$k}) |
| 53 | 0 | 10 | if (@_) |
| 54 | 0 | 0 | if @_ == 1 and not ref $_[0] |
| 55 | 0 | 0 | ref $_[0] eq 'HASH' ? : |
| 57 | 2 | 8 | unless ($$self{$k}) |