package MoveableParticle;

use parent 'Particle';

use Data::Dumper;
$Data::Dumper::Deepcopy = 1;
$Data::Dumper::Sortkeys = 1;

our @ISA = ( 'Particle', );
our %REGISTRY;

sub new {
    my $class = shift;
    my $self = $class->SUPER::new( @_ );
    $self->set( 'is_moveable', 1 );
    return $self;
}

1;