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 : 11_logfp.t

#!perl -w

use strict;
use Test::More tests => 16;

use Test::LeakTrace qw(:util);

my $content = '';

sub t{
	open local(*STDERR), '>', \$content;

	leaktrace{
		my @array;
		push @array, 42, \@array;
	} shift;
}

$\ = 'rs';
$_ = 'defsv';

my $file = __FILE__;
t(-simple);
like $content,   qr/from \Q$file\E line 15\./, -simple;
unlike $content, qr/15:\t\tpush \@array/, -lines;
unlike $content, qr/REFCNT/, -sv_dump;

t(-lines);
like $content, qr/from \Q$file\E line 15\./, -simple;
like $content, qr/15:\t\tpush \@array/, -lines;
unlike $content, qr/REFCNT/, -sv_dump;

t(-sv_dump);
like $content, qr/from \Q$file\E line 15\./, -simple;
unlike $content, qr/15:\t\tpush \@array/, -lines;
like $content, qr/REFCNT/, -sv_dump;

t(-verbose);
like $content, qr/from \Q$file\E line 15\./, -simple;
like $content, qr/15:\t\tpush \@array/, -lines;
like $content, qr/REFCNT/, -sv_dump;

t(-silent);
is $content, '', -silent;

eval{
	t(sub{ die });
};
is $content, '', 'died in callback';

is $\, 'rs',    '$\ is not affected';
is $_, 'defsv', '$_ is not affected';