| line |
true |
false |
branch |
|
27
|
170 |
51 |
if (defined blessed($ref) and $INC{'overload.pm'}) |
|
28
|
30 |
82 |
$type eq 'ARRAY' ? : |
|
|
28 |
112 |
$type eq 'HASH' ? : |
|
|
30 |
140 |
$type eq 'GLOB' || $type eq 'IO' ? : |
|
32
|
170 |
0 |
if (defined overload::Method($ref, "${sigil}{}")) |
|
40
|
170 |
51 |
if defined $class |
|
75
|
14 |
12 |
if defined CORE::tied *$var |
|
|
7 |
6 |
if defined CORE::tied %$var |
|
|
8 |
6 |
if defined CORE::tied @$var |
|
|
25 |
19 |
if defined CORE::tied $$var |
|
|
26 |
71 |
if ($type eq 'GLOB' or $type eq 'IO') { } |
|
|
13 |
58 |
elsif ($type eq 'HASH') { } |
|
|
14 |
44 |
elsif ($type eq 'ARRAY') { } |
|
|
12 |
31 |
if ($type eq 'GLOB' or $type eq 'IO') { } |
|
|
6 |
25 |
elsif ($type eq 'HASH') { } |
|
|
6 |
19 |
elsif ($type eq 'ARRAY') { } |
|
|
7 |
22 |
unless &is_tied($_[0]) |
|
|
2 |
4 |
unless defined reftype(CORE::tied *{$_[0];}) |
|
|
1 |
2 |
unless defined reftype(CORE::tied %{$_[0];}) |
|
|
1 |
2 |
unless defined reftype(CORE::tied @{$_[0];}) |
|
|
4 |
6 |
unless defined reftype(CORE::tied ${$_[0];}) |
|
|
6 |
16 |
if ($type eq 'GLOB' or $type eq 'IO') { } |
|
|
3 |
13 |
elsif ($type eq 'HASH') { } |
|
|
3 |
10 |
elsif ($type eq 'ARRAY') { } |
|
|
4 |
10 |
if $type eq 'GLOB' |
|
|
0 |
14 |
unless exists &svref_2object |
|
|
14 |
0 |
if $_->TYPE =~ /^[qPp]\z/ |
|
|
4 |
6 |
$class eq 'to' ? : |
|
|
2 |
3 |
$class eq 'to' ? : |
|
|
2 |
4 |
$class eq 'to' ? : |
|
|
12 |
9 |
$class eq 'to' ? : |
|
|
10 |
32 |
if ($type eq 'GLOB' or $type eq 'IO') { } |
|
|
5 |
27 |
elsif ($type eq 'HASH') { } |
|
|
6 |
21 |
elsif ($type eq 'ARRAY') { } |
|
|
20 |
22 |
if $class eq 'to' |
|
|
4 |
10 |
if ($type eq 'GLOB' or $type eq 'IO') { } |
|
|
2 |
8 |
elsif ($type eq 'HASH') { } |
|
|
2 |
6 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
14 |
unless (defined $obj) |
|
|
4 |
10 |
if ($type eq 'GLOB' or $type eq 'IO') { } |
|
|
2 |
8 |
elsif ($type eq 'HASH') { } |
|
|
2 |
6 |
elsif ($type eq 'ARRAY') { } |
|
193
|
0 |
46 |
unless &is_tied($_[0]) |
|
200
|
12 |
34 |
if reftype $thing eq 'GLOB' |
|
203
|
1 |
45 |
unless exists &svref_2object |
|
205
|
46 |
8 |
if $_->TYPE =~ /^[qPp]\z/ |
|
208
|
0 |
46 |
unless $thing |
|
216
|
0 |
2 |
unless ref \$tie eq 'REF' and defined(my $tie_obj = CORE::tied $tie) |
|
218
|
0 |
2 |
unless length $pkg |