1package TAP::Harness::TestSubclass;
2use strict;
3use base 'TAP::Harness';
4
5sub aggregate_tests {
6    local $ENV{HARNESS_IS_SUBCLASS} = __PACKAGE__;
7    $_[0]->SUPER::aggregate_tests;
8}
9
101;
11