Select Code to Download

use Test::More;
use File::Find;
...

find({ wanted => \&verify, follow_fast => 1 }, $storage_dir );
diag( "It's normal to run more tests than planned because files have b
+een created since the records were counted" );

# before testing.
my $results_db = 'test_results.db';
...
}
my $db = tie my @test_results, 'DBM::Deep', 'test_results.db';
Test::More->builder->{Test_Results} = \@test_results;

package Tie::StdArray::TestResults;
use Tie::Array;
...

tie my @test_results, 'Tie::StdArray::TestResults';
Test::More->builder->{Test_Results} = \@test_results;