The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Test::FITesque::Suite;
use Moose;
our $ADDED_TESTS = [];
sub add {
    push @{ shift->{data} }, @_;
}

sub run_tests {
    my $self = shift;
    my @results;
    foreach my $test (@{ $self->{data} }) {
        push @results, $test->data;
    }
    $Test::FITesque::Suite::ADDED_TESTS = \@results;
}

1;