sub _getBuilderList {
  my $self = shift;

  my $sql = q{
    SELECT id, city_name
    FROM city
    ORDER BY city_name
  };

  return selectall_sql( $self->param('DBH'), $sql );
}

# (needs proper error handling)
sub selectall_sql {
  my( $dbh, $sql, $values )= @_;

  $values ||= [];
                                                                                
  my $results= $dbh->selectall_arrayref(
    $sql,
    { Slice => {} },
    @$values
  );
                                                                                
  return $results if $results;
                                                                                
  warn $dbh->err if $dbh->err;
                                                                                
  return;
}