package TAP::Harness::TestSubclass;
use strict;
use warnings;
use base 'TAP::Harness';
sub aggregate_tests {
local $ENV{HARNESS_IS_SUBCLASS} = __PACKAGE__;
$_[0]->SUPER::aggregate_tests;
}
1;
package TAP::Harness::TestSubclass;
use strict;
use warnings;
use base 'TAP::Harness';
sub aggregate_tests {
local $ENV{HARNESS_IS_SUBCLASS} = __PACKAGE__;
$_[0]->SUPER::aggregate_tests;
}
1;