/usr/share/doc/libtest-leaktrace-perl/examples/leaktrace.t is in libtest-leaktrace-perl 0.16-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | #!/usr/bin/perl -w
# a test script template
use strict;
use constant HAS_LEAKTRACE => eval{ require Test::LeakTrace };
use Test::More HAS_LEAKTRACE ? (tests => 1) : (skip_all => 'require Test::LeakTrace');
use Test::LeakTrace;
use threads; # for example
leaks_cmp_ok{
my $thr = async{
my $i;
$i++;
};
$thr->join();
} '<', 1;
|