blib/lib/Object/Simple/Accessor.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 27 | 34 | 79.4 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
20 | 29 | 0 | 0 | $type eq 'attr' and $oname ne 'default' |
102 | 18 | 21 | 14 | @_ == 0 and not exists $class_attrs->{$attr} |
143 | 3 | 3 | 13 | @_ == 0 and not exists $class_attrs->{$attr} |
219 | 3 | 3 | 6 | @_ == 0 and not exists $self->{$attr} |
253 | 0 | 0 | 6 | @_ == 0 and not exists $self->{$attr} |
line | l | !l | condition |
---|---|---|---|
57 | 10 | 30 | $options->{'inherit'} || '' |
80 | 26 | 13 | $type || '' |
98 | 50 | 3 | ${"${self}::CLASS_ATTRS";} ||= {} |
139 | 19 | 0 | ${"${self}::CLASS_ATTRS";} ||= {} |
181 | 17 | 1 | ${"${self}::CLASS_ATTRS";} ||= {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
20 | 22 | 7 | 2 | $oname eq 'default' || $oname eq 'inherit' |
2 | 0 | 29 | not $oname eq 'default' || $oname eq 'inherit' or $type eq 'attr' and $oname ne 'default' | |
75 | 28 | 11 | 0 | not ref $default or ref $default eq 'CODE' |