gnu/usr.bin/perl/cpan/Test-Harness/t/lib/TAP/Harness/TestSubclass.pm


1
2
3
4
5
6
7
8
9
10
11

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;