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