Branch Coverage

blib/lib/Class/Slot.pm
Criterion Covered Total %
branch 50 72 69.4


line true false branch
23 0 7 $ENV{'CLASS_SLOT_DEBUG'} ? :
25 7 0 if ($ENV{'CLASS_SLOT_NO_XS'}) { }
29 0 0 $@ ? :
46 13 0 unless exists $CLASS{$class}{'init'}
137 1 14 if ref $self ne 'Class_A' and exists $Class::Slot::CLASS{ref $self}
0 9 if ref $self ne 'Class_A' and exists $Class::Slot::CLASS{ref $self}
0 16 if ref $self ne 'P3' and exists $Class::Slot::CLASS{ref $self}
14 2 if (@_ > 1)
7 3 if defined wantarray
10 6 if (@_ > 1)
0 2 if defined wantarray
254 0 0 if ($_->can('new'))
260 0 0 if ($can_ctor) { }
278 8 5 if exists $slot->{'type'}
281 0 0 if ($req and not defined $def)
285 0 0 if ($type)
287 0 0 $type->can_be_inlined ? :
297 5 14 if (defined $def)
299 5 0 ref $def eq 'CODE' ? :
321 19 6 if $seen{$class}
324 12 7 if (@{$class . '::ISA';})
325 5 20 if ($C3{$class}) { }
344 19 6 unless exists $CLASS{$class}
346 3 2 defined $name ? :
349 0 48 if (not exists $slots{$slot}) { }
354 5 20 if (not exists $slots{$slot}{$cfg} and exists $CLASS{$class}{'slot'}{$slot}{$cfg})
359 0 151 if (not exists $slots{$slot}{'type'} and exists $CLASS{$class}{'slot'}{$slot}{'type'})
366 48 103 if (defined $name) { }
379 10 141 unless exists $slot->{'fwd'}
400 105 36 $class->get_slots($name)->{'rw'} ? :
410 37 67 if ($XS) { }
441 12 0 if ($XS and not $class->get_slots($name)->{'type'}) { }
458 125 36 if $slot->{'type'}
463 23 2 if ($type)
465 75 28 $type->can_be_inlined ? :
506 16 9 if $@