Branch Coverage

blib/lib/Simple/Accessor.pm
Criterion Covered Total %
branch 20 26 76.9


line true false branch
127 0 3 unless $class
142 0 8 if (defined &{$class . '::_before_build';})
147 4 12 if (defined &{$class . '::' . $init;})
148 0 4 unless $self->$init(%opts)
152 0 8 if (defined &{$class . '::_after_build';})
164 0 3 unless $opts{'to'}
166 0 3 unless @attributes
175 15 19 if (defined $v) { }
7 12 elsif (not defined $self->{$att}) { }
177 14 44 if ($_ eq 'set')
182 4 40 if (defined &{$opts{'to'} . '::' . $sub;})
183 1 3 unless $self->$sub($v)
192 1 13 if (defined &{$opts{'to'} . '::' . $sub;})