#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	if (! @_) {
		return; # success unsetting name
	}
	my $val=shift;
	if ($val !~ /[a-zA-Z0-9]/) {
		fail "Name must contain at least one alphanumeric.";
	}
	else {
		return $val;
	}
}
