4 use DBD::Pg qw(:pg_types);
7 our @ISA = qw/Exporter/;
13 #Use domain sockets by default
14 my $dbh = DBI->connect_cached("dbi:Pg:dbname=ndawn", "ndawn", "", {AutoCommit => 1, RaiseError => 1, pg_enable_utf8 => 1});
15 #Easy to also use /etc/postgresql/pg_services.conf
16 #my $dbh = DBI->connect_cached("dbi:Pg:service=ndawn","", "", {AutoCommit => 1});
19 local $dbh->{Warn} = 0;
20 $dbh->do('ABORT; RESET ALL; SET SESSION AUTHORIZATION DEFAULT; DEALLOCATE ALL');