Al-HUWAITI Shell
Al-huwaiti


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 ]

 

Current File : /home/.cpan/build/Test-LeakTrace-0.17-0/example/callback.pl
#!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);
};


Al-HUWAITI Shell