#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	$this->msg($this->closed ? 'look_closed' : 'look_open', %_);
}
