Branch Coverage

blib/lib/Object/InsideOut/attributes.pm
Criterion Covered Total %
branch 7 10 70.0


line true false branch
16 1 0 if (exists $GBL->{'attr'}{'MOD'}{'SCALAR'})
21 0 1 if (@attrs and 'Attribute::Handlers::UNIVERSAL'->can('MODIFY_SCALAR_ATTRIBUTES'))
37 4 3 if (my $handler = $GBL->{'attr'}{'MOD'}{$type}{$class})
40 1 3 unless @attrs
53 1 0 if (exists $GBL->{'attr'}{'FETCH'}{$type})