#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $avatar=$_{avatar} || $this->croak("what, no avatar?");

	my $state;
	if ($this->data && $this->objects) {
		$state="Its data field is built, and is ready to distribute ".
		       $this->installs.".";
	}
	elsif ($this->objects) {
		$state="When built it will include ".
		       $avatar->prettylist(grep ref, $this->objects).".";
	}
	elsif ($this->installs) {
		$state="When installed it will create ".
		       $this->installs.".";
	}
	else {
		$state="It's not yet used.";
	}
	$this->msg('look', %_, state => $state);
}
