#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;

	my $punct=qr/[.!]/;
	
	if ($_{string} =~ /^\s*y(es)?\s*$punct*\s*$/i) {
		return 1;
	}
	elsif ($_{string} =~ /^\s*n(o)?\s*$punct*\s*$/i) {
		return 0;
	}
	else {
		return;
	}
}
