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

	if (! length $mode) {
		$this->croak("mode not specified");
	}
	if (! length $field) {
		$this->croak("field not specified");
	}
	if (! $this->defines($field)) {
		$this->croak("field is inherited");
	}

	return chmod(oct($mode), $this->fieldfile($field));
}
