| line |
true |
false |
branch |
| 19 |
5 |
60 |
unless $class->DECLARED |
| 23 |
1 |
64 |
if (not @$classes) |
| 27 |
0 |
65 |
$can_new ? : |
| 34 |
0 |
0 |
unless exists $$args{$keyword} |
| 48 |
113 |
19 |
if $init_self |
| 53 |
1 |
64 |
if ($$self{'__NULLIFY__'}) { } |
| |
1 |
63 |
elsif ($$self{'__OVERRIDE__'}) { } |
| 79 |
138 |
13 |
unless exists $$args{$fixed_func} |
| 86 |
73 |
656 |
if (exists $$args{$fixed_func}) { } |
| |
159 |
497 |
elsif (exists $$defaults{$fixed_func}) { } |
| 95 |
0 |
159 |
if exists $$args{$fixed_func} |
| 97 |
2 |
157 |
if $real and exists $$args{$fixed_attributes{$real}} |
| 100 |
7 |
150 |
if $syn_list and grep {exists $$args{$fixed_attributes{$_}};} @$syn_list |
| 103 |
0 |
150 |
ref $value ? : |
| 127 |
12 |
0 |
if $func |
| 137 |
16 |
0 |
$func ? : |
| 140 |
0 |
16 |
wantarray ? : |
| 150 |
0 |
2 |
unless ref $attributes eq 'ARRAY' |
| 153 |
0 |
8 |
unless exists $$args{$func} and $class->can($func) |
| 204 |
7 |
78 |
unless exists $$defaults{$fixed_func} |
| 217 |
0 |
87 |
if ref $class |
| 224 |
0 |
83 |
if ref $class |
| 231 |
0 |
42 |
if ref $class |
| 245 |
0 |
42 |
if ref $class |
| 251 |
6 |
129 |
if ref $class |
| 254 |
28 |
107 |
if (@_) { } |
| 265 |
94 |
41 |
wantarray ? : |
| 269 |
6 |
93 |
if ref $class |
| 272 |
28 |
71 |
@_ ? : |
| 273 |
71 |
28 |
wantarray ? : |
| 278 |
0 |
42 |
if ref $class |
| 280 |
35 |
7 |
@_ ? : |
| 281 |
0 |
42 |
wantarray ? : |
| 285 |
6 |
129 |
if ref $class |
| 289 |
35 |
100 |
@_ ? : |
| 290 |
94 |
41 |
wantarray ? : |
| 296 |
6 |
147 |
if ref $class |
| 299 |
35 |
118 |
@_ ? : |
| 300 |
112 |
41 |
wantarray ? : |
| 305 |
0 |
83 |
if ref $class |
| 307 |
32 |
51 |
@_ ? : |
| 308 |
41 |
42 |
wantarray ? : |
| 312 |
6 |
129 |
if ref $class |
| 315 |
35 |
100 |
@_ ? : |
| 316 |
94 |
41 |
wantarray ? : |
| 329 |
0 |
42 |
if ref $class |
| 331 |
30 |
12 |
@_ ? : |
| 332 |
0 |
42 |
wantarray ? : |
| 336 |
6 |
170 |
if ref $class |
| 339 |
29 |
147 |
@_ ? : |
| 340 |
135 |
41 |
wantarray ? : |
| 346 |
0 |
41 |
if ref $class |
| 349 |
40 |
1 |
unless ${$class . '::DEFAULTS_ARGS';} |
| 353 |
6 |
170 |
if ref $class |
| 356 |
41 |
135 |
@_ ? : |
| 357 |
0 |
176 |
wantarray ? : |
| 362 |
0 |
56 |
if ref $class |
| 364 |
6 |
50 |
@_ ? : |
| 369 |
0 |
45 |
if ref $class |
| 376 |
0 |
106 |
if ref $class |
| 378 |
41 |
65 |
@_ ? : |
| 383 |
0 |
106 |
if ref $class |
| 385 |
41 |
65 |
@_ ? : |
| 390 |
0 |
78 |
if ref $class |
| 396 |
0 |
142 |
if ref $class |
| 398 |
42 |
100 |
@_ ? : |
| 402 |
0 |
44 |
if ref $class |
| 404 |
3 |
41 |
if @_ |
| 413 |
6 |
39 |
if (defined $case) { } |
| 431 |
24 |
28 |
if $super eq 'Class::AutoClass' |
| 442 |
3 |
25 |
unless (%{$super . '::';}) |
| 444 |
0 |
3 |
if $@ |
| 454 |
7 |
21 |
if (not DECLARED($super)) |
| 455 |
4 |
3 |
if ($is_runtime) { } |
| 456 |
3 |
1 |
if (UNIVERSAL::isa($super, 'Class::AutoClass')) { } |
| 471 |
0 |
45 |
if (%autodb) |
| 474 |
0 |
0 |
unless (grep /^Class::AutoDB::Object/, @{$class . '::ISA';}) |
| 482 |
0 |
45 |
if (UNIVERSAL::isa($class, 'Class::AutoDB::Object')) |
| 488 |
3 |
42 |
if $defer |
| 491 |
24 |
23 |
if $super eq 'Class::AutoClass' or not UNIVERSAL::isa($super, 'Class::AutoClass') |
| 515 |
150 |
0 |
unless $iattributes_recursive{$_} or $cattributes{$_} |
| 519 |
0 |
47 |
if $cattributes{$syn} and $iattributes{$syn} |
| 521 |
3 |
44 |
if $cattributes{$real} or $cattributes_recursive{$real} |
| 522 |
44 |
3 |
if $iattributes{$real} or $iattributes_recursive{$real} |
| 533 |
1 |
41 |
if (my(@inconsistents) = grep({exists $cattributes_recursive{$_};} keys %iattributes_recursive)) |
| 605 |
120 |
0 |
if $iattributes{$_} |
| 607 |
63 |
120 |
if $cattributes{$_} |
| 614 |
27 |
14 |
@_ > 1 ? : |
| |
33 |
19 |
@_ > 1 ? : |
| |
26 |
6 |
@_ > 1 ? : |
| |
14 |
16 |
@_ > 1 ? : |
| |
21 |
21 |
@_ > 1 ? : |
| 621 |
16 |
13 |
@_ > 1 ? : |
| |
20 |
10 |
@_ > 1 ? : |
| |
17 |
16 |
@_ > 1 ? : |
| |
25 |
23 |
@_ > 1 ? : |
| |
8 |
5 |
@_ > 1 ? : |
| |
23 |
16 |
@_ > 1 ? : |
| 648 |
0 |
47 |
if $func eq $old_func |
| 656 |
1 |
40 |
if (defined $case and $case =~ /lower|lc/i) |
| 661 |
5 |
4 |
if $lc_func eq $func |
| 669 |
5 |
36 |
if (defined $case and $case =~ /upper|uc/i) |
| 674 |
2 |
17 |
if $uc_func eq $func |
| 692 |
3 |
0 |
unless DECLARED($subclass) |
| 708 |
17 |
88 |
if $$types{$class} eq 'pending' |
| 710 |
12 |
82 |
if defined $$types{$class} |
| 719 |
51 |
47 |
if $super eq $AUTOCLASS |
| 721 |
43 |
24 |
unless $type eq 'internal' |
| 723 |
79 |
10 |
if (not FORCE_NEW($class) and not $$can_new and $type eq 'internal') |
| 725 |
89 |
22 |
unless $$types{$super} eq 'external' |
| 726 |
6 |
4 |
if $super->can('new') |
| 729 |
76 |
7 |
if $type eq 'internal' |
| 735 |
3 |
2 |
unless @_ % 2 |