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

	if (! grep ref, $this->objects) {
		fail "The package is empty!";
	}
	
	my @data=$this->generate;
	if (! @data) {
		fail "Error building package.";
	}
	
	$session->page(@data);
};
