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

	# Don't let a builder spoof a programmer that they own to call this
	# method.
        if ($_{avatar} != $this) {
		fail "No!"; 
	}
	
	# Variables available to the evaled code.
	my $session=$_{session} || $this->usage("bad session");
	my $me=$_{avatar};
	my $here=$me->location;
	
	my @ret = eval $_{quote};
	die $@ if $@;
	$_{session}->write(@ret);
}
