#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	
	if (! $this->caller) {
		fail "The phone is not ringing.";
	}
	
	if ($this->caller->target && $this->caller->target eq $this) {
		$this->target($this->caller);
		$this->msg('answer', %_);
		$this->target->msg('connected', %_);
	}
	else {
		$this->msg('answerlate', %_);
	}
	$this->caller('');
}
