#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	
	return if $this->locked;
	return unless $this->locked(1) == 1;
        if (ref $this->otherside && ! $this->otherside->locked) {
		if (! $this->otherside->lock) {
			# Attempt to match the other side.
			$this->locked(0);
			return 0;
		}
        }
	return 1;
}
