#!/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;
	delete $objects{$obj->index};
	eval {
		if (values %objects) {
			$this->objects(values %objects);
		}
		else {
			$this->objects('');
		}
	};
	if ($@) {
		fail "You can't do that.";
	}

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