Branch Coverage

blib/lib/Object/AutoAccessor.pm
Criterion Covered Total %
branch 50 76 65.7


line true false branch
15 0 19 unless (@_ % 2 == 0)
29 0 7 unless (@_ % 2 == 0)
34 7 0 if (ref $obj and UNIVERSAL::isa($obj, 'Object::AutoAccessor'))
45 0 5 unless (@_)
58 7 2 unless (@_)
64 0 2 if (@_) { }
67 0 0 if ($self->is_node($label)) { }
74 0 0 wantarray ? :
77 2 0 if ($self->is_node($first)) { }
91 0 86 unless (@_)
102 4 45 unless (@_)
108 28 17 if (@_) { }
109 0 28 unless @_ % 2 == 1
116 1 28 if ($ref eq 'HASH') { }
1 27 elsif ($ref eq 'ARRAY') { }
0 27 elsif ($ref eq 'SCALAR') { }
130 27 1 if (@_ == 1)
135 1 16 if ($self->is_node($first))
141 0 16 if ($type eq 'HASH') { }
0 16 elsif ($type eq 'ARRAY') { }
0 16 elsif ($type eq 'SCALAR') { }
159 0 9 unless (@_)
170 0 3 unless (@_)
181 0 1 unless (@_)
192 0 1 unless (@_)
204 0 1 unless (@_)
210 0 1 unless (UNIVERSAL::isa($hashref, 'HASH'))
226 2 3 if (UNIVERSAL::isa($$struct{$key}, 'HASH')) { }
248 2 3 if (UNIVERSAL::isa($$self{'params'}{$key}, 'Object::AutoAccessor')) { }
261 4 0 if @_
268 0 45 if $Object::AutoAccessor::AUTOLOAD =~ /::DESTROY$/
272 41 4 if ($$self{'autoload'}) { }
273 0 41 if ($self->can($method)) { }
2 39 elsif ($method =~ /^([sg]et_)(.*)$/) { }
278 1 1 if ($prefix eq 'set_') { }
282 0 1 if @_
287 15 24 if ($self->is_node($method)) { }
288 1 14 if (@_) { }