# Main Program
...
my $test_file = "MetaTester.pm";
my %args = ( source => $test_file );
my $parser = TAP::Parser->new( \%args );
  	while ( my $result = $parser->next ) {
...

# Then in MetaTester.pm
use Test1.pm;
use Test2.pm;
Test1::run_tests();
Test2::run_tests();