Branch Coverage

blib/lib/Class/Member/HASH.pm
Criterion Covered Total %
branch 18 22 81.8


line true false branch
27 1 25 unless (UNIVERSAL::isa($I, 'HASH'))
31 2 23 if ($#_ >= 0)
45 1 1 if (ref $parent)
53 3 3 if exists $o{$m}
57 2 0 if ($init)
66 5 5 if ($name =~ /^-(.*)/) { }
68 3 2 if ($o eq 'CLASS_MEMBERS') { }
1 1 elsif ($o =~ /^NEW=(.+)/) { }
0 1 elsif ($o eq 'NEW') { }
0 1 elsif ($o =~ /^INIT=(.+)/) { }
1 0 elsif ($o eq 'INIT') { }