A testset is naturally a container class rather than a class of individual tests such as Test::Class. For example:

use Test::Class; # for the individual tests

package TestSet;

sub new {
    my $self = [];
    my $class = shift;
    bless $self;
    @_ and $self -> addtest( @_ );
    return $self, $class;
}

sub addtest {
    my $self = shift;
    push @$self, @_;
}

etc.

package main;

my $test = Test::Class -> new();
my $testset = TestSet -> new( $test );

etc.
[download]