DESTROY {
    my $self = shift;
    delete $REGISTRY{$self};
}