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