package This::That;
use Moose;

has 'FOO'  => (is => 'rw', lazy => 1, builder=> '_build_generic');
has 'BAR'  => (is => 'rw', lazy => 1, builder=> '_build_generic');

with qw(SQLConnection);

sub _build_generic {
  my $self = shift;
  #my $attribute_name = $self->meta->????  - is it possible to determine 'FOO' or 'BAR' is being set here ???
  #my $sth = $self->dbh->prepare('select $attribute_name from table where x=? and y=?');
  #$sth->execute(1,2);
  return $sth->fetchrow_array;
}