| blib/lib/Class/AutoClass.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 30 | 43 | 69.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 97 | 155 | 2 | 2 | $real and exists $$args{$fixed_attributes{$real}} |
| 100 | 141 | 9 | 7 | $syn_list and grep {exists $$args{$fixed_attributes{$_}};} @$syn_list |
| 153 | 0 | 0 | 8 | exists $$args{$func} and $class->can($func) |
| 519 | 47 | 0 | 0 | $cattributes{$syn} and $iattributes{$syn} |
| 656 | 35 | 5 | 1 | defined $case and $case =~ /lower|lc/i |
| 669 | 35 | 1 | 5 | defined $case and $case =~ /upper|uc/i |
| 723 | 0 | 5 | 73 | not FORCE_NEW($class) || $$can_new and $type eq 'internal' |
| line | l | !l | condition |
|---|---|---|---|
| 21 | 65 | 0 | $class->ANCESTORS || [] |
| 258 | 32 | 54 | $reverse{$real} || ($reverse{$real} = []) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 14 | 0 | 65 | 0 | ref $class || $class |
| 491 | 23 | 1 | 23 | $super eq 'Class::AutoClass' or not UNIVERSAL::isa($super, 'Class::AutoClass') |
| 515 | 0 | 0 | 150 | $iattributes_recursive{$_} or $cattributes{$_} |
| 521 | 3 | 0 | 44 | $cattributes{$real} or $cattributes_recursive{$real} |
| 522 | 37 | 7 | 3 | $iattributes{$real} or $iattributes_recursive{$real} |
| 723 | 0 | 0 | 78 | FORCE_NEW($class) || $$can_new |