#!perl -w
use strict;
use Test::More 'no_plan'; # I don't know the number of 'ok'
use Test::LeakTrace;
ok defined &leaktrace;
leaktrace{
my %a = (foo => 42);
my %b = (bar => 3.14);
$b{a} = \%a;
$a{b} = \%b;
pass 'in leaktrace block';
} sub {
my($ref, $file, $line) = @_;
is scalar(@_), 3, 'leaktrace callback args is 3 (svref, file, line)';
ok ref($ref), ref $ref;
isnt ref($ref), 'UNKNOWN';
isnt $file, undef;
isnt $line, undef;
};
leaktrace{
my %a = (foo => 42);
my %b = (bar => 3.14);
} sub {
fail 'must not be called';
};