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