Branch Coverage

blib/lib/Class/Attrib.pm
Criterion Covered Total %
branch 20 32 62.5


line true false branch
106 0 8 unless (@_)
119 0 0 unless exists $attribs{$attr}
140 8 0 exists $$ClassAttrib{$name} ? :
144 8 0 if (defined $ClassAttrib)
145 2 6 @_ > 1 ? :
182 1 9 unless ref $self
188 0 9 unless @_
192 3 6 if (@_ > 1)
193 2 1 if (defined $value) { }
198 1 0 unless scalar %{$values{$index};}
202 5 4 exists $values{$index}{$key} ? :
245 0 3 if $name eq 'DESTROY'
256 3 0 exists $$ClassAttrib{$name} ? :
261 0 3 unless (defined $class)
263 0 0 unless ($class = otherpkg($this, 'AUTOLOAD'))
288 1 2 $name =~ /^[A-Z]/ ? :