| blib/lib/Object/Adhoc.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 16 | 37.5 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 1 | 0 | eval 'use Class::XSAccessor 1.19 (); 1' ? : |
| 56 | 1 | 2 | if $made{$joined} |
| 61 | 0 | 3 | /^_/ ? : |
| 69 | 0 | 3 | if (exists $predicates{$key}) |
| 74 | 0 | 3 | if (not $key =~ /^[^\W0-9]\w*$/s or $key =~ /$RESERVED_REGEXP/) |
| 77 | 0 | 0 | $key =~ /^_/ ? : |
| 123 | 0 | 0 | if $_[1] eq 'Object::Adhoc' |
| 124 | 0 | 0 | if $_[1] eq 'HASH' |