1package PgBase;
2
3use strict;
4use base 'Class::DBI';
5
6my $db   = $ENV{DBD_PG_DBNAME} || 'template1';
7my $user = $ENV{DBD_PG_USER}   || 'postgres';
8my $pass = $ENV{DBD_PG_PASSWD} || '';
9
10__PACKAGE__->connection("dbi:Pg:dbname=$db", $user, $pass,
11	{ AutoCommit => 1 });
12
13sub CONSTRUCT {
14	my $class = shift;
15	my ($table, $sequence) = ($class->table, $class->sequence || "");
16	my $schema = $class->schema;
17	$class->db_Main->do("CREATE TEMPORARY SEQUENCE $sequence") if $sequence;
18	$class->db_Main->do("CREATE TEMPORARY TABLE $table ( $schema )");
19}
20
211;
22
23