| line |
true |
false |
branch |
|
17
|
0 |
53 |
unless ('Internals'->can('SvREADONLY')) |
|
22
|
0 |
53 |
if ($threads::shared::threads_shared) |
|
41
|
213 |
0 |
if (exists $EXPORT_OK{lc $sym}) { } |
|
53
|
54 |
0 |
if (%meta) |
|
73
|
233 |
0 |
if (my $ref_type = ref $id) { } |
|
74
|
233 |
0 |
if ($ref_type eq 'CODE') { } |
|
92
|
233 |
0 |
if ($class) |
|
97
|
233 |
0 |
if $] >= 5.008003 |
|
111
|
0 |
0 |
if (not ref $in && $threads::threads && $threads::shared::threads_shared or threads::shared::is_shared($in)) |
|
122
|
0 |
0 |
if (exists $cloned->{$addr}) |
|
132
|
0 |
0 |
if ($ref_type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ref_type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($ref_type eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($ref_type eq 'REF') { } |
|
164
|
0 |
0 |
if ($addr == &Scalar::Util::refaddr($$in)) { } |
|
185
|
0 |
0 |
if (my $class = &Scalar::Util::blessed($in)) |
|
190
|
0 |
0 |
if ($ref_type eq 'SCALAR') |
|
191
|
0 |
0 |
if (&Internals::SvREADONLY(\$$in)) |
|
192
|
0 |
0 |
if $] >= 5.008003 |
|
195
|
0 |
0 |
if (&Internals::SvREADONLY(\$in)) |
|
196
|
0 |
0 |
if $] >= 5.008003 |
|
208
|
0 |
0 |
$threads::shared::threads_shared ? : |
|
220
|
0 |
0 |
if not ref $in or &Scalar::Util::blessed($in) |
|
225
|
0 |
0 |
if (exists $cloned->{$addr}) |
|
235
|
0 |
0 |
if ($ref_type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ref_type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($ref_type eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($ref_type eq 'REF') { } |
|
267
|
0 |
0 |
if ($addr == &Scalar::Util::refaddr($$in)) { } |
|
288
|
0 |
0 |
if (my $class = &Scalar::Util::blessed($in)) |
|
293
|
0 |
0 |
if ($ref_type eq 'SCALAR') |
|
294
|
0 |
0 |
if (&Internals::SvREADONLY(\$$in)) |
|
295
|
0 |
0 |
if $] >= 5.008003 |
|
298
|
0 |
0 |
if (&Internals::SvREADONLY(\$in)) |
|
299
|
0 |
0 |
if $] >= 5.008003 |
|
314
|
46 |
9 |
if not ref $in or &Scalar::Util::blessed($in) |
|
319
|
0 |
9 |
if (exists $cloned->{$addr}) |
|
329
|
3 |
6 |
if ($ref_type eq 'ARRAY') { } |
|
|
6 |
0 |
elsif ($ref_type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($ref_type eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($ref_type eq 'REF') { } |
|
360
|
0 |
0 |
if ($addr == &Scalar::Util::refaddr($$in)) { } |
|
379
|
0 |
9 |
if ($ref_type eq 'SCALAR') |
|
380
|
0 |
0 |
if (&Internals::SvREADONLY(\$$in)) |
|
381
|
0 |
0 |
if $] >= 5.008003 |
|
384
|
0 |
9 |
if (&Internals::SvREADONLY(\$in)) |
|
385
|
0 |
0 |
if $] >= 5.008003 |
|
400
|
73 |
80 |
if (/$re/) |
|
401
|
33 |
40 |
if wantarray |
|
414
|
54 |
32 |
&Scalar::Util::blessed($thing) ? : |