#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $obj=$_{direct_object};
	my $session=$_{session};
	my $avatar=$_{avatar};
	
	my %objects = map { $_->index => $_ } grep ref, $this->objects;
	$objects{$obj->index} = $obj;
	eval {$this->objects(values %objects)};
	if ($@) {
		fail "You can't do that."
	}

	$this->data('');
	$this->installs(Mooix::Thing->prettylist(values %objects));
	
	$session->write("Contents: ".$avatar->prettylist(values %objects));
}
