Branch Coverage

blib/lib/Class/Accessor/WithDefault.pm
Criterion Covered Total %
branch 19 30 63.3


line true false branch
11 3 2 if (ref $_ eq 'HASH') { }
25 1 0 if (ref $_ eq 'HASH') { }
56 0 4 if ($accessor_name eq 'DESTROY' or $mutator_name eq 'DESTROY')
61 2 2 if ($accessor_name eq $mutator_name) { }
63 2 0 if ($ra and $wa) { }
0 0 elsif ($ra) { }
71 0 2 if defined &subname
78 2 0 if ($ra and not defined &{$fullaccname;})
80 0 2 if defined &subname
83 1 1 if ($wa and not defined &{$fullmutname;})
85 0 1 if defined &subname
97 1 3 if (@_) { }
2 1 elsif (not defined $self->get($field)) { }
114 0 2 if (@_) { }
2 0 elsif (not defined $self->get($field)) { }