One Hat Cyber Team

Your IP : 216.73.217.151

Server IP : 162.240.179.46

Server : Linux vps-14493116.nutrivittasaude.com.br 5.14.0-687.17.1.el9_8.x86_64 #1 SMP PREEMPT_DYNAMIC Mon Jun 22 07:21:26 EDT 2026 x86_64

Server Software : Apache

PHP Version : 8.2.31

Buat File | Buat Folder

View File Name : Script.pm

package Test::LeakTrace::Script;

use strict;
use warnings;

use Test::LeakTrace ();

my $Mode = $ENV{TEST_LEAKTRACE};

sub import{
	shift;

	$Mode = shift if @_;
}

no warnings 'void';

INIT{
	Test::LeakTrace::_start(1);
}

END{
	$Mode = -simple unless defined $Mode;
	Test::LeakTrace::_finish($Mode);
	return;
}

1;
__END__

=head1 NAME

Test::LeakTrace::Script - A LeakTrace interface for whole scripts

=head1 SYNOPSIS

	#!perl -w
	use Test::LeakTrace::Script sub{
		my($svref, $file, $line) = @_;

		warn "leaked $svref from $file line $line.\n";
	};

=head1 DESCRIPTION

This is a interface to C<Test::LeakTrace> for whole scripts.

=head1 INTERFACE

=head2 Command line interface

	$ perl -MTest::LeakTrace::Script script.pl

	$ perl -MTest::LeakTrace::Script=-verbose script.pl

	$ TEST_LEAKTRACE=-lines script.pl

=head1 ENVIRONMENT VARIABLES

=head2 TEST_LEAKTRACE=mode

=head3 -simple (DEFAULT)

=head3 -sv_dump

=head3 -lines

=head3 -verbose

=head1 SEE ALSO

L<Test::LeakTrace>.

=cut