| blib/lib/Object/Adhoc.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 16 | 37.5 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 2 | 0 | eval 'use Class::XSAccessor 1.19 (); 1' ? : |
| 57 | 1 | 3 | if $made{$joined} |
| 62 | 0 | 5 | /^_/ ? : |
| 70 | 0 | 5 | if (exists $predicates{$key}) |
| 75 | 0 | 5 | if (not $key =~ /^[^\W0-9]\w*$/s or $key =~ /$RESERVED_REGEXP/) |
| 78 | 0 | 0 | $key =~ /^_/ ? : |
| 125 | 0 | 0 | if $_[1] eq "Object::Adhoc" |
| 126 | 0 | 0 | if $_[1] eq "HASH" |