my $subobj = $obj->subclass(); # or, better, my $subobj = $obj->subclass_clone();