Branch Coverage

blib/lib/Class/AutoClass.pm
Criterion Covered Total %
branch 188 226 83.1


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