#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	
	return unless $this->closed;
	return if $this->locked;
	return unless $this->closed(0) == 0;
	$this->msg('opens', %_) unless $_{quiet};
	if (ref $this->otherside && $this->otherside->closed) {
		if (! $this->otherside->open(@_)) {
			# Attempt to match the other side since it failed
			# to open.
			$this->closed(1);
			return 0;
		}
	}
	return 1;
}
