One Hat Cyber Team

Your IP: 216.73.216.67
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/Test-LeakTrace-0.17-0/benchmark/

View File Name : devel_leaktrace.pl

#!perl -w
use strict;
use Benchmark qw();
our $t;
BEGIN{	$t = Benchmark->new; }
END{	print 'time: ', Benchmark->new->timediff($t)->timestr, "\n"; }

use Devel::LeakTrace;

use ExtUtils::MakeMaker (); # a large module

{
	my %hash;
	for(1 .. 1000){
		$hash{$_}++;
		$hash{$_}++;
	}

	my %a;
	my %b;

	$a{b} = \%a;
	$b{a} = \%b;
}