| line |
true |
false |
branch |
|
26
|
3 |
52 |
unless defined $source |
|
30
|
5 |
47 |
if defined $depth and $depth-- < 1 |
|
33
|
17 |
30 |
unless exists $Clone::PP::CloneCache{'undef'} |
|
35
|
8 |
39 |
if defined $Clone::PP::CloneCache{$source} |
|
38
|
3 |
36 |
unless my $ref_type = ref $source |
|
42
|
9 |
27 |
if ("$source" =~ /^\Q$ref_type\E\=([A-Z]+)\(0x[0-9a-f]+\)$/) |
|
46
|
0 |
9 |
if $source->can($Clone::PP::CloneSelfMethod) |
|
57
|
17 |
19 |
if ($ref_type eq 'HASH') { } |
|
|
9 |
10 |
elsif ($ref_type eq 'ARRAY') { } |
|
|
10 |
0 |
elsif ($ref_type eq 'REF' or $ref_type eq 'SCALAR') { } |
|
59
|
1 |
16 |
if (my $tied = tied %$source) |
|
60
|
41 |
13 |
!ref($_) ? : |
|
63
|
1 |
8 |
if (my $tied = tied @$source) |
|
64
|
10 |
13 |
!ref($_) ? : |
|
67
|
1 |
9 |
if (my $tied = tied $$source) |
|
76
|
9 |
27 |
if ($class_name) |
|
78
|
0 |
9 |
if $copy->can($Clone::PP::CloneInitMethod) |