para

need DBDish;

unit class DBDish::Pg:ver($?DISTRIBUTION.meta<ver>):api($?DISTRIBUTION.meta<api>):auth($?DISTRIBUTION.meta<auth>) does DBDish::Driver;
use DBDish::Pg::Native;
need DBDish::Pg::Connection;

my grammar PgTokenizer {
    token double_quote_normal { <-[\\"]>+ }
    token double_quote_escape { [\\ . ]+ }
    token double_quote {
        \"
        [
        | <.double_quote_normal>
        | <.double_quote_escape>
        ]*
        \"
    }
    token single_quote_normal { <-['\\]>+ }
    token single_quote_escape { [ \'\' | \\ . ]+ }
    token single_quote {
        \'
        [
        | <.single_quote_normal>
        | <.single_quote_escape>
        ]*
        \'
    }
    token dollar_placeholder {\$<digit>+}
    token dollar_quote {
        ( \$\$ | \$<alpha><alnum>*\$ ) .*? $0
    }
    token placeholder { '?' }
    token normal { <-[?"'$]>+ }

    token TOP {
        ^
        (
        | <normal>
        | <placeholder>
        | <dollar_placeholder>
        | <dollar_quote>
        | <single_quote>
        | <double_quote>
        )*
        $
    }
}

my class PgTokenizer::Actions {
    has $.counter = 0;
    method single_quote($/) { make $/.Str }
    method dollar_placeholder($/) { make $/.Str }
    method dollar_quote($/) { make $/.Str }
    method double_quote($/) { make $/.Str }
    method placeholder($/)  { make '$' ~ ++$!counter }
    method normal($/)       { make $/.Str }
    method TOP($/) {
        make $0.flatmap({.values[0].ast}).join;
    }
}

our sub pg-replace-placeholder(Str $query) is export {
    PgTokenizer.parse($query, :actions(PgTokenizer::Actions.new))
            and $/.ast;
}


#------------------ methods to be called from DBIish ------------------

method connect(:database(:$dbname), *%params) {

    %params.push((:$dbname)) with $dbname;
    my $pg-conn = PGconn.new(%(%params<
    host hostaddr port dbname user password connect-timeout
    client-encoding options application-name keepalives keepalives-idle
    keepalives-interval sslmode requiressl sslcert sslkey sslrootcert
    sslcrl requirepeer krbsrvname gsslib service>:p:delete));
    my $status = $pg-conn.PQstatus;
    if $status == CONNECTION_OK {
        DBDish::Pg::Connection.new(:$pg-conn, :parent(self), |%params);
    }
    else {
        self!conn-error: :code($status) :errstr($pg-conn.PQerrorMessage);
    }
}

method version {
    my $ver = PQlibVersion;
    $ver = Version.new((gather for ^3 { take $ver mod 100; $ver div= 100 }).reverse);
    CATCH { when X::AdHoc { } }
    $ver;
}

method data-sources(*%params) {
    with self.connect(:dbname<template1>, |%params) {
        LEAVE { .dispose }
        with .prepare('SELECT pg_catalog.quote_ident(datname) FROM pg_catalog.pg_database ORDER BY 1') {
            .execute;
            .allrows.map({ dbname => .[0] }) . eager; # 'cus this conn will be disposed
        } else { .fail }
    } else { .fail }
}



DESCRIPTION'DBIish' and # 'DBDish::Pg' are Perl 6 modules that use Rakudo's
# NativeCall to use the standard libpq library.
# There is a long term Rakudo based project to develop a new,
# comprehensive DBI architecture for Rakudo and Perl 6.
# DBIish is not that, it is a naive rewrite of the similarly named Perl 5 modules.


head

CLASSES
The DBDish::Pg module contains the same classes and methods as every
database driver.  Therefore read the main documentation of usage in
L<doc:DBIish> and internal architecture in L<doc:DBDish>.  Below are
only notes about code unique to the DBDish::Pg implementation.


SEE ALSO
The PostgreSQL Documentation, C Library.
L<https://www.postgresql.org/docs/current/static/libpq.html>


root

StatementHandle

Oracle

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<AI|file:../mcp/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>
    =item2 L<Hand these documents to an AI assistant|file:../mcp/index.podlite>

=end nested
=begin nested :!nested
=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>

=end nested
=end React


Built with L<Podlite|https://podlite.org> — the markup and publishing tools behind this site.


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Pg

CLASSES The DBDish::Pg module contains the same classes and methods as every database driver. Therefore read the main documentation of usage in DBIish and internal architecture in DBDish. Below are only notes about code unique to the DBDish::Pg implementation.

SEE ALSO The PostgreSQL Documentation, C Library. https://www.postgresql.org/docs/current/static/libpq.html

DBIish v0.6.9

Authors

License

Dependencies

Test Dependencies

Provides

Documentation