#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $parent = $_{parent} or $this->usage("bad parent");
	my $usernme = $_{auth_username} or $this->usage("bad auth_username");

	my $id = $this->sessions->newid(mkdir => 1, hint => $username);
	my $session = $parent->new(id => $id, owner => $this, @_);
	return $session;
}
