use strict; use Test::More; BEGIN { if (! $ENV{TEST_MEMLEAK}) { plan skip_all => "TEST_MEMLEAK is not set"; } } use Test::Requires 'Test::Valgrind', 'XML::Parser', ; while ( my $f = ) { subtest $f => sub { do $f }; } done_testing;