#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $id=$_{id} || $this->usage("id field required");

	my @values=$this->$id;
	my @fields=$this->logfields;
	
	my %values;
	foreach my $field (@fields) {
		$values{$field}=shift @values;
	}

	return %values;
}
