package Parent; use Moose; use Test::Most '!blessed'; sub BUILD { my ($self, $args) = @_; if ($args->{'tests'}) { plan tests => $args->{'tests'}; } }