First stab at restructuring with tests_recursive() - no functional changes
[dbsrgits/DBIx-Class-Historic.git] / t / cdbi / testlib / PgBase.pm
1 package # hide from PAUSE 
2     PgBase;
3
4 use strict;
5 use base 'DBIx::Class::CDBICompat';
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