| line |
true |
false |
branch |
|
38
|
0 |
0 |
if ($DEBUG{$category} or not exists $DEBUG{$category})
|
|
62
|
175 |
192 |
if (my $refaddr = ref $data && &refaddr($data))
|
|
63
|
0 |
175 |
if $self->weaken
|
|
65
|
12 |
163 |
if (exists $seen_hash->{$refaddr}) { }
|
|
74
|
300 |
55 |
if (defined wantarray) { }
|
|
81
|
367 |
0 |
@_ == 1 ? :
|
|
96
|
0 |
193 |
unless ref $data
|
|
104
|
35 |
320 |
if (&blessed($data)) { }
|
|
|
128 |
192 |
elsif (ref $data) { }
|
|
117
|
5 |
5 |
if (not defined wantarray) { }
|
|
135
|
0 |
137 |
if $reftype =~ /^(?:REF|LVALUE|VSTRING)$/
|
|
153
|
5 |
56 |
if (defined tied %$hash and $self->tied_as_objects) { }
|
|
163
|
51 |
5 |
if (defined wantarray) { }
|
|
180
|
4 |
1 |
if (defined wantarray) { }
|
|
184
|
4 |
0 |
if (&blessed(my $new_tied = $self->visit_tied($_[1], $_[2]))) { }
|
|
201
|
5 |
51 |
if (not defined wantarray) { }
|
|
213
|
3 |
117 |
if (not defined wantarray) { }
|
|
237
|
4 |
19 |
if (defined tied @$array and $self->tied_as_objects) { }
|
|
247
|
16 |
3 |
if (defined wantarray) { }
|
|
265
|
3 |
1 |
if (defined wantarray) { }
|
|
269
|
3 |
0 |
if (&blessed(my $new_tied = $self->visit_tied($_[1], $_[2]))) { }
|
|
287
|
3 |
16 |
if (not defined wantarray) { }
|
|
302
|
4 |
7 |
if (defined tied $$scalar and $self->tied_as_objects) { }
|
|
312
|
6 |
1 |
if (defined wantarray) { }
|
|
330
|
3 |
1 |
if (defined wantarray) { }
|
|
334
|
3 |
0 |
if (&blessed(my $new_tied = $self->visit_tied($_[1], $_[2]))) { }
|
|
356
|
4 |
2 |
if (defined tied *$glob and $self->tied_as_objects) { }
|
|
366
|
2 |
0 |
if (defined wantarray) { }
|
|
384
|
3 |
1 |
if (defined wantarray) { }
|
|
388
|
3 |
0 |
if (&blessed(my $new_tied = $self->visit_tied($_[1], $_[2]))) { }
|
|
405
|
9 |
79 |
if (&blessed($proto) and not &blessed($new))
|
|
411
|
0 |
88 |
if ($seen_hash->{'weak'})
|
|
416
|
0 |
0 |
if (&HAS_DATA_ALIAS()) { }
|
|
419
|
0 |
0 |
if (ref $value and &isweak($value))
|
|
424
|
0 |
0 |
if (@weak_refs)
|
|
427
|
0 |
0 |
if (ref $value and $targets{&refaddr($value)})
|