my $newobject = Subroutine->new($parent)