#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	my @ret=$this->super(@_);
	$this->exchange($this->parent->exchange);
	$this->exchange->add(object => $this);
	$this->caller('');
	chmod(01664, $this->fieldfile('caller')) || die "chmod: $!";
	$this->target('');
	chmod(01664, $this->fieldfile('target')) || die "chmod: $!";
	unless ($this->defines('number')) {
		while ($this->number(int(rand(8999999)) + 1000000) eq '0') {}
	}
	return @ret;
}
