Branch Coverage

blib/lib/Class/Accessor/Inherited/XS/Compat.pm

Criterion	Covered	Total	%
branch	4	4	100.0

line	true	false	branch
20	1	12	if not $seen->{$class}++ and scalar grep({$_ eq 'Class::Accessor::Inherited::XS';} @{&mro::get_linear_isa($class);})
26	9	15	if (ref $entry eq 'ARRAY') { }