#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	$this->super(@_) || die "super failed";

	# Set gender?
	if (ref $_{gender}) {
		$this->gender($_{gender});
	}
	
	unless ($this->defines("users")) {
		# Set users, one way or another.
		if (exists $_{users}) {
			$this->users($_{users});
		}
		else {
			$this->users("");
		}
	}
	
	unless ($this->defines("sessions")) {
		# New avatars start off with new (and empty) sessions lists.
		$this->create(
			id => 'sessions',
			parent => $this->parent->sessions,
			owner => $this,
			onchange => "calcaware",
		);
	}
	
	unless ($this->defines("sleeping")) {
		# New avatars start off asleep.
		$this->sleeping(1);
	}
	
	return $this;
}
