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