Select Code to Download

package My::TestCase;
use base qw(Test::Unit::TestCase);
...
sub tear_down {
    warn "after all tests\n";
}

package My::Test;
use base qw( Test::Class );
...
sub after :Test( shutdown ) {
    warn "after all tests\n";
};