#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $preposition = lc($_{preposition});
	my @preplists=$this->preplists;

	if (length $preposition) {
		my %closedpreps;
		if ($this->closed) {
			%closedpreps = map { $_ => 1 } $this->closedpreps;
		}
		foreach my $list (@preplists) {
			next if $closedpreps{$list};
			my @list=$this->$list;
			if (grep { $_ eq $preposition } @list) {
				return @list;
			}
		}
		return; # no matches
	}
	else {
		my $default=$preplists[0];
		return $this->$default;
	}
}
