--- /dev/null
+package ND::DB;
+use strict;
+use DBI;
+use DBD::Pg qw(:pg_types);
+require Exporter;
+
+our @ISA = qw/Exporter/;
+
+our @EXPORT = qw/DB/;
+
+
+sub DB {
+ #Use domain sockets by default
+ my $dbh = DBI->connect_cached("dbi:Pg:dbname=ndawn", "ndawn", "", {AutoCommit => 1});
+ #Easy to also use /etc/postgresql/pg_services.conf
+ #my $dbh = DBI->connect_cached("dbi:Pg:service=ndawn","", "", {AutoCommit => 1});
+ $dbh->rollback if $dbh->{Executed} || !$dbh->{AutoCommit};
+ return $dbh;
+};
+1;
+