sub setup : Tests(setup) { my $test = shift; $test->SUPER::setup; # my setup code here }