| 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 |