#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	$this->super(@_) || die "super failed";

	unless ($this->defines("closed")) {
		# Copy the parent's open/closed state.
		$this->closed($this->parent->closed);
	}
	
	unless ($this->defines("locked")) {
		# Copy the parent's locked/unlocked state.
		$this->locked($this->parent->locked);
	}
	
	return $this;
}
