Select Code to Download

package Particle;

...
    $p->set( 'is_moveable', 0 );
    return $p;
}

$REGISTRY{$self} = $self;

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