| line |
true |
false |
branch |
|
28
|
25 |
3 |
if (my $reftype = reftype($_[0]) and not blessed($_[0]) and not &Internals::SvREADONLY($_[0])) |
|
29
|
1 |
0 |
if not $dont_clone and &Internals::SvREFCNT($_[0]) > 1 and not $skip{$reftype} |
|
31
|
14 |
11 |
if ($reftype eq 'SCALAR' or $reftype eq 'REF') { } |
|
|
3 |
8 |
elsif ($reftype eq 'ARRAY') { } |
|
|
8 |
0 |
elsif ($reftype eq 'HASH') { } |
|
49
|
1 |
21 |
unless defined reftype($_[0]) |
|
50
|
3 |
18 |
if &Internals::SvREADONLY($_[0]) |
|
51
|
8 |
10 |
if (reftype($_[0]) eq 'SCALAR' or reftype($_[0]) eq 'REF') { } |
|
|
3 |
7 |
elsif (reftype($_[0]) eq 'ARRAY') { } |
|
|
7 |
0 |
elsif (reftype($_[0]) eq 'HASH') { } |
|
52
|
0 |
8 |
if @args == 0 |
|
53
|
0 |
8 |
if @args > 1 |
|
60
|
1 |
6 |
if @args % 2 |