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