Help for this page

Select Code to Download


  1. or download this
    sub clone {
        my ($value) = @_;
    ...
            return $value
        }
    }
    
  2. or download this
    multi sub clone (Object where { $_->can('clone') } $value) {
        return $value->clone;
    ...
    multi sub clone (HashRef $value) {
        return map { $_ => clone( $value->{$_} ) } keys %$value;
    }