override '_build_getnewsql' => sub { my ($self) = @_; my $sql = super(); $sql .= sprintf "AND location = %d", $self->location; };