#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	$this->super(@_) || die "super failed";

	foreach my $field (qw{data installs objects version}) {
		unless ($this->defines($field)) {
			$this->$field('');
		}
	}
	
	return $this;
}
