| line |
true |
false |
branch |
|
11
|
0 |
16 |
if exists $INC{'Class/Std.pm'} |
|
53
|
0 |
0 |
if 0 != index(caller, 'Class::Std::') |
|
59
|
0 |
0 |
if 0 != index(caller, 'Class::Std::') |
|
65
|
0 |
7 |
if 0 != index(caller, 'Class::Std::') |
|
90
|
0 |
37 |
if $flags{'isa_unsorted'} |
|
93
|
1 |
36 |
if $flags{'cache'} |
|
98
|
36 |
1 |
if ($flags{'constructor'} eq 'normal') { } |
|
|
0 |
1 |
elsif ($flags{'constructor'} eq 'basic' and $flags{'cache'}) { } |
|
|
1 |
0 |
elsif ($flags{'constructor'} eq 'basic' and not $flags{'cache'}) { } |
|
|
0 |
0 |
elsif ($flags{'constructor'} eq 'none') { } |
|
118
|
0 |
30 |
@_ == 2 && $_[1] >= 2 ? : |
|
|
2 |
30 |
@_ >= 3 ? : |
|
123
|
1 |
31 |
unless defined $flags{'cache'} |
|
124
|
1 |
31 |
unless defined $flags{'constructor'} |
|
139
|
95 |
97 |
unless @unhandled |
|
167
|
1 |
44 |
unless $attr =~ /\A ATTRS? \s* (?: \( (.*) \) )? \z/msx |
|
169
|
37 |
7 |
if (my $config = $1) |
|
173
|
29 |
8 |
if ($getter = Class::Std::_extract_get($config) || $name) |
|
176
|
14 |
23 |
if ($setter = Class::Std::_extract_set($config) || $name) |
|
199
|
0 |
4 |
unless exists $$attr_ref{'ref'}{$id} |
|
223
|
0 |
43 |
unless keys %{$_[0] . '::';} |
|
228
|
0 |
43 |
if $#_ and ref $_[1] ne 'HASH' |
|
241
|
59 |
17 |
unless $_[1]{$base_class} |
|
246
|
18 |
58 |
if (my $build_ref = *{$base_class . '::BUILD';}{'CODE'}) |
|
249
|
4 |
72 |
if (my $init_ref = *{$base_class . '::START';}{'CODE'}) |
|
260
|
14 |
133 |
if defined $$attr_ref{'ref'}{${$new_obj;}} |
|
262
|
50 |
83 |
if (defined $$attr_ref{'init_arg'} and exists $$arg_set{$$attr_ref{'init_arg'}}) { } |
|
|
16 |
67 |
elsif (defined $$attr_ref{'default'}) { } |
|
270
|
8 |
8 |
if $@ |
|
273
|
0 |
67 |
if (defined $$attr_ref{'init_arg'}) |
|
283
|
0 |
43 |
if @missing_inits |
|
299
|
0 |
70 |
if exists $_hierarchy_of{$class} |
|
315
|
70 |
0 |
if (not exists $destroy_isa_unsorted_of{$class}) { } |
|
319
|
32 |
5 |
$b->isa($a) ? : |
|
|
94 |
37 |
$a->isa($b) ? : |
|
320
|
165 |
6 |
if not exists $seen{$_} |
|
328
|
0 |
0 |
if not exists $seen{$_} |
|
350
|
42 |
18 |
exists $_hierarchy_of{$class} ? : |
|
354
|
12 |
92 |
if exists &{"${base_class}::DEMOLISH";} |
|
360
|
2 |
58 |
if exists $do_cache_class_of{$class} |
|
389
|
0 |
98334 |
unless defined $_[0] |
|
392
|
83439 |
14894 |
if (my $sub_ref = &$real_can(@_)) |
|
397
|
14842 |
52 |
exists $_hierarchy_of{ref $invocant or $invocant} ? : |
|
401
|
0 |
44647 |
if (my $automethod_ref = *{$parent_class . '::AUTOMETHOD';}{'CODE'}) |
|
404
|
0 |
0 |
if (my $method_impl = &$automethod_ref(@_)) |