| Current Path : /usr/share/doc/perl-Test-LeakTrace/t/ |
| Current File : //usr/share/doc/perl-Test-LeakTrace/t/05_script.t |
#!/usr/bin/perl -w
use strict;
use Test::More tests => 1;
BEGIN{
pass 'script interface';
}
use Test::LeakTrace::Script;
my $i = 0;
for(1 .. 10){
my @array = (1 .. 10);
my %hash = (foo => 'bar');
$i++;
}