#!perl -w
use strict;
use Test::LeakTrace;
use Data::Dumper;
leaktrace{
my %a;
my %b;
$a{b} = \%b;
$b{a} = \%a;
} sub {
my($ref, $file, $line) = @_;
print "#line $line $file\n";
print Dumper($ref);
};
#!perl -w
use strict;
use Test::LeakTrace;
use Data::Dumper;
leaktrace{
my %a;
my %b;
$a{b} = \%b;
$b{a} = \%a;
} sub {
my($ref, $file, $line) = @_;
print "#line $line $file\n";
print Dumper($ref);
};