| blib/lib/Audio/Nama/Object.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 20 | 45.0 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 11 | 17 | unless shift() eq 'Audio::Nama::Object' |
| 24 | 0 | 17 | $child ? : |
| 0 | 127 | unless defined $_ and not ref $_ and /^[^\W\d]\w*$/su | |
| 28 | 0 | 17 | if $@ |
| 48 | 0 | 1 | if ref $class |
| 49 | 1 | 0 | if do { "${class}::_is_field" }->{$key} |
| 52 | 0 | 0 | unless $parent_class and not $parent_class =~ /Object::Tiny/u |
| 63 | 0 | 1 | if @_ % 2 |
| 68 | 0 | 1 | unless is_legal_key(ref $self, $key) |
| 87 | 0 | 0 | if is_legal_key(ref $self, 'class') |