sub data_hash {
    my $obj = shift;
    my(@cols) = $obj->columns;
    my %hash;
    @hash{@cols} = $obj->get(@cols);
    \%hash;
  }