#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $avatar=$_{avatar} or $this->usage("need an avatar");
	$this->avatar($avatar);
	$this->lastlogid($_{lastlogid}) if $_{lastlogid};
}
