line |
true |
false |
branch |
19
|
5 |
60 |
unless $class->DECLARED |
23
|
1 |
64 |
unless (@$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 |
unless (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
|
37 |
16 |
@_ > 1 ? : |
|
20 |
20 |
@_ > 1 ? : |
|
27 |
26 |
@_ > 1 ? : |
|
20 |
18 |
@_ > 1 ? : |
|
32 |
20 |
@_ > 1 ? : |
621
|
16 |
13 |
@_ > 1 ? : |
|
16 |
11 |
@_ > 1 ? : |
|
20 |
12 |
@_ > 1 ? : |
|
17 |
18 |
@_ > 1 ? : |
|
9 |
6 |
@_ > 1 ? : |
|
7 |
10 |
@_ > 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
|
16 |
90 |
if $$types{$class} eq 'pending' |
710
|
17 |
93 |
if defined $$types{$class} |
719
|
50 |
45 |
if $super eq $Class::AutoClass::AUTOCLASS |
721
|
38 |
18 |
unless $type eq 'internal' |
723
|
75 |
9 |
if (not FORCE_NEW($class) || $$can_new and $type eq 'internal') |
725
|
91 |
2 |
unless $$types{$super} eq 'external' |
726
|
6 |
2 |
if $super->can('new') |
729
|
78 |
7 |
if $type eq 'internal' |
735
|
18 |
5 |
unless @_ % 2 |