| line | % | coverage | branch |
|---|
| 26 | 50 | T | F | unless defined $source |
| 30 | 50 | T | F | if defined $depth and $depth-- < 1 |
| 33 | 100 | T | F | unless exists $Clone::PP::CloneCache{'undef'} |
| 35 | 50 | T | F | if defined $Clone::PP::CloneCache{$source} |
| 38 | 100 | T | F | unless my $ref_type = ref $source |
| 42 | 50 | T | F | if ("$source" =~ /^\Q$ref_type\E\=([A-Z]+)\(0x[0-9a-f]+\)$/) |
| 46 | 0 | T | F | if $source->can($Clone::PP::CloneSelfMethod) |
| 57 | 100 | T | F | if ($ref_type eq 'HASH') { } |
| 100 | T | F | elsif ($ref_type eq 'ARRAY') { } |
| 100 | T | F | elsif ($ref_type eq 'REF' or $ref_type eq 'SCALAR') { } |
| 59 | 50 | T | F | if (my $tied = tied %$source) |
| 60 | 100 | T | F | !ref($_) ? : |
| 63 | 50 | T | F | if (my $tied = tied @$source) |
| 64 | 50 | T | F | !ref($_) ? : |
| 67 | 50 | T | F | if (my $tied = tied $$source) |
| 76 | 50 | T | F | if ($class_name) |
| 78 | 0 | T | F | if $copy->can($Clone::PP::CloneInitMethod) |