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, RaiseError => 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;

