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

	# Collect the content.
	my $content=$_;
	while (@_) {
		my $key=shift;
		my $value=shift;
		if ($key eq 'content') {
			$content.="$value\n";
		}
	}

	return $this->avatar->edit_finish(session => $this, value => $content,
	                                 id => $_{reference});
}
