package A;

use strict;
use warnings;

use base 'Test::Class';
use Test::More;

sub test_foo :Test(no_plan) {
    pass('foo');
}

1;

##</code><code>##

~$ perl -d -MA -e 'Test::Class->runtests'
Loading DB routines from perl5db.pl version 1.28
Attribute::Handlers::CODE(0x82d4198)(/usr/lib/perl5/5.8.7/Attribute/Handlers.pm:206):
206:                    $global_phase++;
DB<1> b A::test_foo
DB<2> c
ok 1 - foo
1..1
Debugged program terminated.
DB<2> q
~$