| line |
true |
false |
branch |
|
165
|
37 |
5 |
@_ ? : |
|
171
|
6 |
1 |
@_ ? : |
|
173
|
7 |
0 |
unless ($class->isa('Devel::LeakGuard::Object::State')) |
|
184
|
8 |
0 |
unless (*CORE::GLOBAL::bless eq $plain_bless) |
|
196
|
1 |
1 |
if ('GLOBAL_bless' eq $a) { } |
|
|
0 |
1 |
elsif ($a =~ /^:(.+)$/) { } |
|
200
|
0 |
0 |
unless exists $OPTIONS{$1} |
|
214
|
0 |
43 |
if ($magic += $adj) < 0 |
|
217
|
21 |
22 |
if ($old_magic > 0 and $magic == 0) { } |
|
|
22 |
0 |
elsif ($old_magic == 0 and $magic > 0) { } |
|
389
|
0 |
73 |
unless defined $class |
|
393
|
1 |
72 |
if ($TRACKED{$address}) |
|
396
|
0 |
1 |
if $class eq $TRACKED{$address} |
|
405
|
16 |
57 |
unless ($DESTROY_STUBBED{$class}) |
|
409
|
0 |
16 |
if (exists ${$class . '::';}{'DESTROY'} and *{$class . '::DESTROY';}{'CODE'}) |
|
432
|
0 |
22 |
unless defined $class |
|
437
|
12 |
10 |
if ($original) { } |
|
439
|
0 |
12 |
if $class ne $original |
|
445
|
0 |
12 |
if $OBJECT_COUNT{$original} < 0 |
|
451
|
0 |
12 |
if $DESTROY_ORIGINAL{$original} |
|
461
|
5 |
17 |
if $super |
|
470
|
20 |
18 |
if $DESTROY_NEXT{$class} |
|
479
|
0 |
31 |
if $seen{$c}++ |
|
484
|
21 |
10 |
$DESTROY_STUBBED{$c} ? : |
|
486
|
2 |
29 |
if ($has_destroy) { } |
|
513
|
0 |
0 |
$OPTIONS{'stderr'} ? : |
|
516
|
0 |
0 |
unless $OBJECT_COUNT{$_} |
|
521
|
0 |
6 |
if $OPTIONS{'at_end'} |