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;