#!/usr/bin/perl
my $const=4;
use Mooix::Thing;
run sub {
	my $this=shift;
	my $t=$this->trigger;
	$t=$this->trigger($_[0] ? $t | $const : $t & ~$const) if @_;
	return $t & $const ? 1 : 0;
}
