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