https://github.com/mons/anyevent-dbd-pg

AnyEvent interface to DBD::Pg's async interface
https://github.com/mons/anyevent-dbd-pg

Last synced: 10 months ago
JSON representation

AnyEvent interface to DBD::Pg's async interface

• Host: GitHub
• URL: https://github.com/mons/anyevent-dbd-pg
• Owner: Mons
• License: other
• Created: 2010-11-26T12:53:38.000Z (over 15 years ago)
• Default Branch: master
• Last Pushed: 2012-02-08T10:50:10.000Z (over 14 years ago)
• Last Synced: 2023-03-10T20:33:06.936Z (over 3 years ago)
• Language: Perl
• Homepage: http://search.cpan.org/dist/AnyEvent-DBD-Pg
• Size: 258 KB
• Stars: 4
• Watchers: 4
• Forks: 1
• Open Issues: 1
• Metadata Files:
  • Readme: README
  • Changelog: Changes
  • License: LICENSE

Awesome Lists containing this project

README

          
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, ""

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.