One Hat Cyber Team

Your IP: 216.73.216.177
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/t/

View File Name : 06_threads.t

#!perl -w

use strict;
use constant HAS_THREADS => eval{ require threads };

use Test::More;

BEGIN{
	if(HAS_THREADS){
		plan tests => 6;
	}
	else{
		plan skip_all => 'require threads';
	}
}

use threads;
use Test::LeakTrace;

leaks_cmp_ok{
	async{
		my $a = 0;
		$a++;
	}->join;
} '<', 10;

my $count = leaked_count {
	async{
		leaks_cmp_ok{
			my @a;
			push @a, \@a;
		} '>', 0;

		no_leaks_ok{
			my $a;
			$a++;
		};
	}->join;
};
cmp_ok $count, '<', 10, "(actually leaked: $count)";

async{
	no_leaks_ok{
		my $a = 0;
		$a++;
	};
	no_leaks_ok{
		my $a = 0;
		$a++;
	};
}->join();