| line |
true |
false |
branch |
|
167
|
34 |
5 |
@_ ? : |
|
173
|
6 |
1 |
@_ ? : |
|
175
|
7 |
0 |
unless ($class->isa('Devel::LeakGuard::Object::State')) |
|
186
|
8 |
0 |
unless (*CORE::GLOBAL::bless eq $plain_bless) |
|
198
|
1 |
1 |
if ('GLOBAL_bless' eq $a) { } |
|
|
0 |
1 |
elsif ($a =~ /^:(.+)$/) { } |
|
202
|
0 |
0 |
unless exists $OPTIONS{$1} |
|
216
|
0 |
43 |
if ($magic += $adj) < 0 |
|
219
|
21 |
22 |
if ($old_magic > 0 and $magic == 0) { } |
|
|
22 |
0 |
elsif ($old_magic == 0 and $magic > 0) { } |
|
391
|
0 |
73 |
unless defined $class |
|
395
|
1 |
72 |
if ($TRACKED{$address}) |
|
399
|
0 |
1 |
if $class eq $TRACKED{$address} |
|
407
|
16 |
57 |
unless ($DESTROY_STUBBED{$class}) |
|
411
|
0 |
16 |
if (exists do {
$class . '::'
}->{'DESTROY'} and *{$class . '::DESTROY';}{'CODE'}) |
|
434
|
0 |
22 |
unless defined $class |
|
439
|
12 |
10 |
if ($original) { } |
|
441
|
0 |
12 |
if $class ne $original |
|
449
|
0 |
12 |
if $OBJECT_COUNT{$original} < 0 |
|
454
|
0 |
12 |
if $DESTROY_ORIGINAL{$original} |
|
463
|
5 |
17 |
if $super |
|
472
|
20 |
18 |
if $DESTROY_NEXT{$class} |
|
481
|
0 |
31 |
if $seen{$c}++ |
|
486
|
21 |
10 |
$DESTROY_STUBBED{$c} ? : |
|
488
|
2 |
29 |
if ($has_destroy) { } |
|
515
|
0 |
0 |
$OPTIONS{'stderr'} ? : |
|
518
|
0 |
0 |
unless $OBJECT_COUNT{$_} |
|
523
|
0 |
6 |
if $OPTIONS{'at_end'} |