package Child; use Moose; extends qw(Parent); sub run { my ($self) = @_; ok(1, "a simple test"); } __PACKAGE__->new(tests => 1)->run;