#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	if (@_) {
		my @list=$this->exchange->list;
		my @ret=@_;
		foreach $phone (@list) {
			if ($phone) {
				if ($phone->number eq @_) {
					@ret=0;
				}
			}
		}
		if (@ret) {
			$this->_number(@_);
		}
		return(@ret);
	}
	else {
		return($this->_number);
	}
}
