blib/lib/Class/AutoClass.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 51 | 112 | 45.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
116 | 378 | 40 | 3 | $real and exists $$args{$fixed_attributes{$real}} |
119 | 373 | 41 | 4 | $syn_list and grep {exists $$args{$fixed_attributes{$_}};} @$syn_list |
203 | 4 | 0 | 32 | exists $$args{$func} and $class->can($func) |
555 | 0 | 0 | 0 | scalar keys %autodb == 1 and not +(keys %autodb)[0] |
593 | 93 | 0 | 0 | $cattributes{$syn} and $iattributes{$syn} |
730 | 556 | 0 | 0 | defined $case and $case =~ /lower|lc/i |
743 | 556 | 0 | 0 | defined $case and $case =~ /upper|uc/i |
797 | 274 | 159 | 1698 | not FORCE_NEW($class) || $$can_new and $type eq 'internal' |
line | l | !l | condition |
---|---|---|---|
25 | 609 | 0 | $class->ANCESTORS || [] |
310 | 31 | 230 | $reverse{$real} || ($reverse{$real} = []) |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
18 | 100 | 509 | 0 | ref $self_or_class || $self_or_class |
269 | 0 | 1116 | 0 | ref $class || $class |
276 | 0 | 1113 | 0 | ref $class || $class |
283 | 0 | 557 | 0 | ref $class || $class |
297 | 0 | 557 | 0 | ref $class || $class |
303 | 0 | 1782 | 0 | ref $class || $class |
321 | 0 | 685 | 0 | ref $class || $class |
330 | 0 | 557 | 0 | ref $class || $class |
337 | 0 | 1782 | 0 | ref $class || $class |
348 | 0 | 1721 | 0 | ref $class || $class |
357 | 0 | 1113 | 0 | ref $class || $class |
364 | 0 | 1782 | 0 | ref $class || $class |
381 | 0 | 557 | 0 | ref $class || $class |
388 | 0 | 2338 | 0 | ref $class || $class |
398 | 0 | 558 | 0 | ref $class || $class |
405 | 0 | 2338 | 0 | ref $class || $class |
414 | 0 | 881 | 0 | ref $class || $class |
421 | 0 | 559 | 0 | ref $class || $class |
428 | 0 | 1165 | 0 | ref $class || $class |
435 | 0 | 1165 | 0 | ref $class || $class |
442 | 0 | 2131 | 0 | ref $class || $class |
448 | 0 | 1947 | 0 | ref $class || $class |
454 | 0 | 558 | 0 | ref $class || $class |
565 | 201 | 78 | 617 | $super eq 'Class::AutoClass' or not UNIVERSAL::isa($super, 'Class::AutoClass') |
589 | 7 | 0 | 296 | $iattributes_recursive{$_} or $cattributes{$_} |
595 | 0 | 0 | 93 | $cattributes{$real} or $cattributes_recursive{$real} |
596 | 86 | 7 | 0 | $iattributes{$real} or $iattributes_recursive{$real} |
797 | 0 | 274 | 1857 | FORCE_NEW($class) || $$can_new |