#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $to = $_{to} || $this->usage("to unspecified");

	return if $to == $this->location;
	
	if ($this->physics->move(object => $this, to => $to)) {
		return $this;
	}
	else {
		return;
	}
}
