| blib/lib/Object/Properties.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 18 | 94.4 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 25 | 113 | unless exists $$hash{$field[$i]} |
| 25 | 0 | 42 | if $hash != $self |
| 59 | 23 | 28 | if (@prop and 'CODE' eq ref $_) |
| 63 | 1 | 27 | unless /\A([+]?)([^\W\d]\w*)\z/ |
| 64 | 23 | 4 | unless $1 |
| 71 | 3 | 1 | $setter ? : |
| 23 | 4 | $ro{$prop} ? : | |
| 78 | 7 | 1 | if (my(@sprop) = grep({exists $setter{$_};} @prop)) |
| 84 | 2 | 6 | unless @$ISA |