# before testing. my $results_db = 'test_results.db'; if ( ! unlink $results_db && -e $results_db ) { die "Can't unlink existing results db '$results_db': $!"; } my $db = tie my @test_results, 'DBM::Deep', 'test_results.db'; Test::More->builder->{Test_Results} = \@test_results;