Server : Apache System : Linux dedi-14684855.grupobig.com 5.14.0-611.49.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Tue Apr 21 16:39:08 EDT 2026 x86_64 User : grupo692 ( 1004) PHP Version : 8.2.31 Disable Function : NONE Directory :  /home/.cpan/build/Test-LeakTrace-0.17-0/example/

Upload File : current_dir [ Writeable ] document_root [ Writeable ]

#!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);
};