---
name: "AnyEvent::DBD::Pg"
section: "3pm"
platform: "linux"
package: "libanyevent-dbd-pg-perl"
version: "0.03-6"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/AnyEvent::DBD::Pg"
---

# AnyEvent::DBD::Pg(3pm)

AnyEvent interface to DBD::Pg's async interface

## NAME

AnyEvent::DBD::Pg - AnyEvent interface to DBD::Pg's async interface

## SYNOPSIS

```
        use AnyEvent::DBD::Pg;

        my $adb = AnyEvent::DBD::Pg->new('dbi:Pg:dbname=test', user => 'pass', {
                pg_enable_utf8 => 1,
                pg_server_prepare => 0,
                quote_char => '"',
                name_sep => ".",
        }, debug => 1);

        $adb->queue_size( 4 );
        $adb->debug( 1 );

        $adb->connect;

        $adb->selectcol_arrayref("select pg_sleep( 0.1 ), 1", { Columns => [ 1 ] }, sub {
                my $rc = shift or return warn;
                my $res = shift;
                warn "Got <$adb->{qd}> = $rc / @{$res}";
                $adb->selectrow_hashref("select data,* from tx limit 2", {}, sub {
                        my $rc = shift or return warn;
                        warn "Got $adb->{qd} = $rc [@_]";
                });
        });

        $adb->execute("update tx set data = data;",sub {
                my $rc = shift or return warn;
                warn "Got exec: $rc";
                #my $st = shift;
                #$st->finish;
        });

        $adb->execute("select from 1",sub {
                shift or return warn;
                warn "Got $adb->{qd} = @_";
        });

        $adb->selectrow_array("select pg_sleep( 0.1 ), 2", {}, sub {
                shift or return warn;
                warn "Got $adb->{qd} = [@_]";
                $adb->selectrow_hashref("select * from tx limit 1", {}, sub {
                        warn "Got $adb->{qd} = [@_]";
                        $adb->execute("select * from tx", sub {
                                my $rc = shift or return warn;
                                my $st = shift;
                                while(my $row = $st->fetchrow_hashref) { warn "$row->{id}"; }
                                $st->finish;
                                exit;
                        });
                });
        });
        AE::cv->recv;
```

## METHODS

- **connect()**

  Establish connection to database

- selectrow\_array( $query, \[\\%args\], $cb-\>( $rc, ... ))

  Execute PG\_ASYNC prepare, than push result of `"fetchrow_array"` into callback

- selectrow\_arrayref( $query, \[\\%args\], $cb-\>( $rc, \\@row ))

  Execute PG\_ASYNC prepare, than push result of `"fetchrow_arrayref"` into callback

- selectrow\_hashref( $query, \[\\%args\], $cb-\>( $rc, \\%row ))

  Execute PG\_ASYNC prepare, than push result of `"fetchrow_hashref"` into callback

- selectall\_arrayref( $query, \[\\%args\], $cb-\>( $rc, \\@rows ))

  Execute PG\_ASYNC prepare, than push result of `"fetchall_arrayref"` into callback

- selectall\_hashref( $query, \[\\%args\], $cb-\>( $rc, \\@rows ))

  Execute PG\_ASYNC prepare, than push result of `"fetchall_hashref"` into callback

- selectcol\_arrayref( $query, { Columns =\> \[...\], ... }, $cb-\>( $rc, \\@rows ))

  Execute PG\_ASYNC prepare, than push result of `"fetchall_hashref($args{Columns})"` into callback

- execute( $query, \[\\%args\], $cb-\>( $rc, $sth ))

  Execute PG\_ASYNC prepare, than invoke callback, pushing resulting sth to it.

  **Please, note**: result already passed as first argument

## AUTHOR

Mons Anderson, `"<mons@cpan.org>"`

## LICENSE AND COPYRIGHT

Copyright 2010 Mons Anderson.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.