#!/usr/bin/perl
#use Mooix::Thing;

run sub {
	my $this=shift;
	%_=@_;

	my @fields=$this->logfields;
ITEM:	for (my $x = $this->high_watermark; $x >= $this->log_watermark; $x--) {
		my @values=$this->$x;
		my %values;
		foreach my $field (@fields) {
			$values{$field}=shift @values;
		}

		foreach my $key (keys %_) {
			if ($_{$key} ne $values{$key}) {
				next ITEM;
			}
		}
		
		return $x;
	}
	return;
}
