Select Code to Download

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

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

package Local::GetDataTable;

...
};

1;

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