Branch Coverage

blib/lib/Object/Properties.pm
Criterion Covered Total %
branch 17 18 94.4


line true false branch
20 25 113 unless exists $$hash{$field[$i]}
24 0 42 if $hash != $self
58 23 28 if (@prop and 'CODE' eq ref $_)
62 1 27 unless /\A([+]?)([^\W\d]\w*)\z/
63 23 4 unless $1
71 3 1 $setter ? :
23 4 $ro{$prop} ? :
77 7 1 if (my(@sprop) = grep({exists $setter{$_};} @prop))
83 2 6 unless @$ISA