Select Code to Download

sub deep_copy
{
...
                +{map{$_ => $self->deep_copy($this->{$_})} keys %$this
+};
        }
}

sub copy
{
        my $self = shift;
        return $self->deep_copy($self);
}