#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	
	if ($this->candestroy) {
		$this->exchange->remove(object => $this) if $this->exchange;
		return $this->super(@_);
	}
	else {
		return 1; # failure
	}
}
