die "Can't locate object method\" columns\"" unless($dbh);

    my $self = shift;

    my $sql = ("SELECT * FROM $table LIMIT 1");
    my $sth = $dbh->prepare($sql) || die $dbh->errstr;
    $sth->execute || die $sth->errstr;
    my $ref = $sth->fetchrow_hashref();

    return keys %$ref;

    die "Can't locate object method\" dbi\"" unless($dbh);

    return $dbh;

    die "Can't locate object method\" rows\"" unless($dbh);

    my $self = shift;;

    return keys %$self;

    my $this = shift;

    my @args = @_;
    my $i = 0;
    my $where;

    while(defined $args[$i]){
	if(length($where)){
	    $where .= ' AND ';
	}else{
	    $where = ' WHERE ';
	}

        if (substr($args[$i], 0, 1) eq '-' && substr($args[$i], 1, 1) !~ /[0-9]/){
	    $where .= substr($args[$i],1) . ' = "' . $args[$i + 1] . '"';
            $i += 2;
        }else{
	    $where .= $args[$i];
            $i ++;
        }
    }

    print "select $primarykey from $table $where";
    my $ids = $dbh->selectcol_arrayref("select $primarykey from $table $where");

    return @$ids;

    my $self = shift;
    $dbh = shift;

    my $self = shift;
    $primarykey = shift;

    my $self = shift;
    $table = shift;

    die "Can't locate object method\" tables\"" unless($dbh);

    my $self = shift;
    my %tables;

    foreach my $table ($dbh->tables(undef, 'public', undef, undef, {noprefix => 1})){
	$table =~ s/^\"(.*)\"$/$1/g;
	$tables{$table} ++;
    }

    return keys %tables;