package Parent;
use Moose;
use Test::Most '!blessed';

sub BUILD {
    my ($self, $args) = @_;
    if ($args->{'tests'}) {
        plan tests => $args->{'tests'};
    }
}

##</code><code>##

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

__PACKAGE__->new(tests => 1)->run;


##</code><code>##

 Undefined subroutine &Child::ok called at oo_test.pl line 8.