use Scalar::Util qw(blessed);

sub clone {
    
    my $self = shift;
    
    my $clone = blessed($self)->new or die "clone failed ($self)";
    
    @{$clone}{keys %$self} = (values %$self);
    
    return $clone;

    }