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

	if (! grep ref, $this->objects) {
		if ($this->data && $this->installs) {
			fail "No need to build it, it's ready to be installed.";
		}
		else {
			fail "The package is empty!";
		}
	}
	
	my @data=$this->generate;
	if (! @data) {
		fail "Error building package.";
	}
	$this->data(@data);
	
	$session->write("Built the package.");
};
