| blib/lib/Data/DefGen.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 18 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 34 | 19 | 2 | unless UNIVERSAL::isa($$self{'obj_cloner'}, 'CODE') |
| 41 | 0 | 23 | if ref $$self{'data'} ne 'CODE' |
| 50 | 17 | 78 | if (defined blessed($_[0])) |
| 53 | 15 | 2 | $_[0]->isa(ref $self) ? : |
| 58 | 36 | 42 | unless $type |
| 59 | 7 | 35 | if $type eq 'HASH' |
| 60 | 35 | 0 | if $type eq 'ARRAY' |
| 61 | 0 | 0 | if $type eq 'SCALAR' |
| 62 | 0 | 0 | if $type eq 'REF' |