| blib/lib/Simple/Accessor.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 26 | 76.9 |
| line | true | false | branch |
|---|---|---|---|
| 127 | 0 | 3 | unless $class |
| 142 | 0 | 8 | if ($self->can('_before_build')) |
| 147 | 4 | 12 | if ($self->can($init)) |
| 148 | 0 | 4 | unless $self->$init(%opts) |
| 152 | 0 | 8 | if ($self->can('_after_build')) |
| 164 | 0 | 3 | unless $opts{'to'} |
| 166 | 0 | 3 | unless @attributes |
| 175 | 15 | 19 | if (defined $v) { } |
| 7 | 12 | elsif (not defined $self->{$att}) { } | |
| 177 | 14 | 44 | if ($_ eq 'set') |
| 182 | 4 | 40 | if ($self->can($sub)) |
| 183 | 1 | 3 | unless $self->$sub($v) |
| 192 | 1 | 13 | if ($self->can($sub)) |