#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	my $new=shift;
	
	if ($this->exchange) {
		$this->exchange->remove(object => $this);
	}
	if ($new->add(object => $this) ) {
		$this->exchange($new);
	}
}
