sub getnew {
    my ($self) = @_;

    $self->dbs->query($self->getnewsql)->hashes;
}

##</code><code>##

package Local::GetDataTable;

use Moose::Role;

sub _build_getnewsql {
  my ($self)=@_;

  sprintf "SELECT * FROM %s WHERE qblistid IS NULL and qbresponse IS NULL",
    $self->dbtable;

};

1;

##</code><code>##

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