sub register_tests { my $self = shift; $self->register_test("foo", 1); } sub foo { ok(1); }