view release on metacpan or  search on metacpan

Postgres.xs  view on Meta::CPAN

    PROTOTYPE: $
    CODE:
	RETVAL=PQoidStatus(q->res);
    OUTPUT:
	RETVAL

void
query_fetchrow(q)
	QUERY *q;
    PROTOTYPE: $
    PPCODE:
    if (q && q->res) {
      int cols = PQnfields(q->res);
      /* return empty list when no more data */
      if (PQntuples(q->res) > q->cur_row) { /* out of tuples to return */
	int cur_col = 0;
	EXTEND(sp,cols);
	while(cur_col < cols) {
	  if (PQgetisnull(q->res,q->cur_row,cur_col))
	    PUSHs(&sv_undef);
	  else {