view release on metacpan or  search on metacpan

t/Memalyzer.t  view on Meta::CPAN

# A newer Test::More would give us done_testing()
eval { tests(); 1 } || ok( 0, $@ );
cleanup();

sub cleanup {
    unlink( 't/test_out' ); #Do not care about errors.
    unlink( 't/test_out.raw' ); #Do not care about errors.
    unlink( 't/test_out.head' ); #Do not care about errors.
}

sub fork_do(&) {
    my $pid = fork();
    unless ( $pid ) {
        shift->();
        exit;
    }
    waitpid( $pid, 0 );
}

{
    package Devel::Memalyzer::Plugin::Test;