#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this = shift;
	%_=@_;
	my $username=$_{username} or $this->usage("bad username");
	
	if (grep { $_ eq $username } $this->users) {
		return $this;
	}
	return "";
}
