my $subobj = Class::SubClass->clone_from($obj);
# ...
sub clone_from {
   my ($package, $base) = @_;
   return $package->new(%$base);
}