| line |
true |
false |
branch |
|
23
|
0 |
8 |
$ENV{'CLASS_SLOT_DEBUG'} ? : |
|
25
|
7 |
1 |
if ($ENV{'CLASS_SLOT_NO_XS'}) { } |
|
29
|
0 |
1 |
$@ ? : |
|
34
|
36 |
5 |
unless ($LATE) |
|
38
|
3 |
0 |
if ($msg =~ /Too late to run CHECK block/) |
|
51
|
3 |
0 |
unless exists $CLASS{$class}{'init'} |
|
160
|
0 |
18 |
if ref $self ne 'Class_A' and exists $Class::Slot::CLASS{ref $self} |
|
|
1 |
9 |
if ref $self ne 'Class_A' and exists $Class::Slot::CLASS{ref $self} |
|
|
0 |
16 |
if ref $self ne 'P1' 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 |
|
277
|
0 |
0 |
if ($_->can('new')) |
|
283
|
0 |
0 |
if ($can_ctor) { } |
|
301
|
2 |
7 |
if exists $slot->{'type'} |
|
304
|
0 |
0 |
if ($req and not defined $def) |
|
308
|
0 |
0 |
if ($type) |
|
310
|
0 |
0 |
$type->can_be_inlined ? : |
|
320
|
5 |
10 |
if (defined $def) |
|
322
|
5 |
0 |
ref $def eq 'CODE' ? : |
|
344
|
19 |
7 |
if $seen{$class} |
|
347
|
12 |
7 |
if (@{$class . '::ISA';}) |
|
348
|
12 |
21 |
if ($C3{$class}) { } |
|
367
|
19 |
7 |
unless exists $CLASS{$class} |
|
369
|
3 |
2 |
defined $name ? : |
|
372
|
0 |
48 |
if (not exists $slots{$slot}) { } |
|
377
|
5 |
21 |
if (not exists $slots{$slot}{$cfg} and exists $CLASS{$class}{'slot'}{$slot}{$cfg}) |
|
382
|
0 |
155 |
if (not exists $slots{$slot}{'type'} and exists $CLASS{$class}{'slot'}{$slot}{'type'}) |
|
389
|
48 |
107 |
if (defined $name) { } |
|
402
|
10 |
145 |
unless exists $slot->{'fwd'} |
|
423
|
107 |
38 |
$class->get_slots($name)->{'rw'} ? : |
|
433
|
37 |
73 |
if ($XS) { } |
|
464
|
12 |
2 |
if ($XS and not $class->get_slots($name)->{'type'}) { } |
|
481
|
129 |
38 |
if $slot->{'type'} |
|
486
|
24 |
2 |
if ($type) |
|
488
|
77 |
30 |
$type->can_be_inlined ? : |
|
529
|
16 |
10 |
if $@ |