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