| 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)
|