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

	# Sanity check.
	if ($_{email} !~ /.+@.+\..+/) {
		die "Invalid email address!";
	}
	
	# Just run super method, stackless. Make created items only
	# readable by this object.
	$this->super(@_, activated => 0, umask => 077);
}
