Branch Coverage

blib/lib/Class/ObjectTemplate/DB.pm
Criterion Covered Total %
branch 54 92 58.7


line true false branch
30 0 7 if scalar @{"${pkg}::_ATTRIBUTES_";}
35 6 1 if (scalar @_)
36 5 1 if (scalar @_ % 2 == 0 and $_[0] eq 'lookup' || $_[0] eq 'no_lookup' and ref $_[1] eq 'ARRAY') { }
55 0 7 if $Class::ObjectTemplate::DB::DEBUG
58 0 7 if $Class::ObjectTemplate::DB::DEBUG
65 0 12 if $Class::ObjectTemplate::DB::DEBUG
72 1 11 if (UNIVERSAL::can($pkg, "$attr")) { }
80 0 0 if @_ > 1
0 0 if defined $$name[${$_[0];}]
0 1 if (scalar @Foo::_free) { }
1 0 if @_
0 1 if $rc == -1
0 1 if (scalar @BazINC2::_free) { }
0 1 if @_
0 1 if $rc == -1
0 1 if (scalar @Foo2::_free) { }
0 1 if @_
0 1 if $rc == -1
1 2 if (scalar @FooFoo::_free) { }
0 3 if @_
0 3 if $rc == -1
0 1 if (scalar @BazINC::_free) { }
0 1 if @_
0 1 if $rc == -1
0 1 if (scalar @Baz::_free) { }
0 1 if @_
0 1 if $rc == -1
0 2 if (scalar @Bar::_free) { }
0 2 if @_
0 2 if $rc == -1
4 6 @_ > 1 ? :
1 1 @_ > 1 ? :
0 1 @_ > 1 ? :
1 1 if @_ > 1
0 1 if defined $$name[${$_[0];}]
0 0 @_ > 1 ? :
0 1 if @_ > 1
0 1 if defined $$name[${$_[0];}]
1 1 @_ > 1 ? :
1 2 @_ > 1 ? :
0 2 if @_ > 1
0 2 if defined $$name[${$_[0];}]
1 1 if @_ > 1
1 0 if defined $$name[${$_[0];}]
81 0 7 if ($@)
102 5 6 if ($lookup) { }