package Test::Floober;

# This inherits from Test::Class
use base 'My::Test::BaseClass';

sub test1 : Test(5) {
    my $self = shift;
    # Do stuff here with $self->{foo} and $self->{bar}
    # that were passed in at new()
}