my %cp = %$original_object; my $cloned_object = bless(\%cp, ref($original_object)); [download]
In reply to Re: how to clone by jackdied in thread how to clone by Anonymous Monk