| line |
true |
false |
branch |
|
18
|
0 |
53 |
unless ('Internals'->can('SvREADONLY')) |
|
23
|
0 |
0 |
if ($Config::Config{'useithreads'} and $threads::shared::threads_shared) |
|
42
|
213 |
0 |
if (exists $EXPORT_OK{lc $sym}) { } |
|
54
|
54 |
0 |
if (%meta) |
|
74
|
233 |
0 |
if (my $ref_type = ref $id) { } |
|
75
|
233 |
0 |
if ($ref_type eq 'CODE') { } |
|
93
|
233 |
0 |
if ($class) |
|
98
|
233 |
0 |
if $] >= 5.008003 |
|
112
|
0 |
0 |
if (not ref $in && $Config::Config{'useithreads'} && $threads::threads && $threads::shared::threads_shared or threads::shared::is_shared($in)) |
|
124
|
0 |
0 |
if (exists $cloned->{$addr}) |
|
134
|
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') { } |
|
166
|
0 |
0 |
if ($addr == &Scalar::Util::refaddr($$in)) { } |
|
187
|
0 |
0 |
if (my $class = &Scalar::Util::blessed($in)) |
|
192
|
0 |
0 |
if ($ref_type eq 'SCALAR') |
|
193
|
0 |
0 |
if (&Internals::SvREADONLY(\$$in)) |
|
194
|
0 |
0 |
if $] >= 5.008003 |
|
197
|
0 |
0 |
if (&Internals::SvREADONLY(\$in)) |
|
198
|
0 |
0 |
if $] >= 5.008003 |
|
210
|
0 |
0 |
$Config::Config{'useithreads'} && $threads::shared::threads_shared ? : |
|
223
|
0 |
0 |
if not ref $in or &Scalar::Util::blessed($in) |
|
228
|
0 |
0 |
if (exists $cloned->{$addr}) |
|
238
|
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') { } |
|
270
|
0 |
0 |
if ($addr == &Scalar::Util::refaddr($$in)) { } |
|
291
|
0 |
0 |
if (my $class = &Scalar::Util::blessed($in)) |
|
296
|
0 |
0 |
if ($ref_type eq 'SCALAR') |
|
297
|
0 |
0 |
if (&Internals::SvREADONLY(\$$in)) |
|
298
|
0 |
0 |
if $] >= 5.008003 |
|
301
|
0 |
0 |
if (&Internals::SvREADONLY(\$in)) |
|
302
|
0 |
0 |
if $] >= 5.008003 |
|
317
|
47 |
9 |
if not ref $in or &Scalar::Util::blessed($in) |
|
322
|
0 |
9 |
if (exists $cloned->{$addr}) |
|
332
|
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') { } |
|
363
|
0 |
0 |
if ($addr == &Scalar::Util::refaddr($$in)) { } |
|
382
|
0 |
9 |
if ($ref_type eq 'SCALAR') |
|
383
|
0 |
0 |
if (&Internals::SvREADONLY(\$$in)) |
|
384
|
0 |
0 |
if $] >= 5.008003 |
|
387
|
0 |
9 |
if (&Internals::SvREADONLY(\$in)) |
|
388
|
0 |
0 |
if $] >= 5.008003 |
|
403
|
73 |
82 |
if (/$re/) |
|
404
|
33 |
40 |
if wantarray |
|
417
|
54 |
32 |
&Scalar::Util::blessed($thing) ? : |