Test::LeakTrace::Script − A LeakTrace interface for whole scripts
#!perl −w
use Test::LeakTrace::Script sub{
my($svref, $file, $line) = @_;
warn "leaked $svref from $file line $line.\n";
};
This is a interface to "Test::LeakTrace" for whole scripts.
$ perl
−MTest::LeakTrace::Script script.pl
$ perl −MTest::LeakTrace::Script=−verbose
script.pl
$ TEST_LEAKTRACE=−lines script.pl
−simple (DEFAULT)
−sv_dump
−lines
−verbose
Test::LeakTrace.