sub destroy{
    my $self = shift;

    $self = undef;
}