Commit | Line | Data |
ea2e61bf |
1 | package PgBase; |
2 | |
3 | use strict; |
4 | use base 'DBIx::Class'; |
5 | |
6 | my $db = $ENV{DBD_PG_DBNAME} || 'template1'; |
7 | my $user = $ENV{DBD_PG_USER} || 'postgres'; |
8 | my $pass = $ENV{DBD_PG_PASSWD} || ''; |
9 | |
10 | __PACKAGE__->connection("dbi:Pg:dbname=$db", $user, $pass, |
11 | { AutoCommit => 1 }); |
12 | |
13 | sub 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 | |
21 | 1; |
22 | |