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