package Foo; use Test::More; use lib '.'; use base 'TestBase'; sub setup : Tests(setup => 1) { ok 1, 'Foo: should be called first'; } sub some_test : Tests(1) { ok 1, 'Foo: some test'; } sub not_overridden : Tests(1) { ok 1, "Let's hope this isn't dependent on Foo's setup method"; } 1;