X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2Ftestlib%2FPgBase.pm;fp=t%2Fcdbi%2Ftestlib%2FPgBase.pm;h=0000000000000000000000000000000000000000;hb=dc4600b2b9be4ae9a91c8ab49bdbb7ce2c23d0f7;hp=8c1349365edcd61205a6419e12742ccd3a7decb6;hpb=014fd55671aaf0e2060e31cc2e547661346f3106;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi/testlib/PgBase.pm b/t/cdbi/testlib/PgBase.pm deleted file mode 100644 index 8c13493..0000000 --- a/t/cdbi/testlib/PgBase.pm +++ /dev/null @@ -1,23 +0,0 @@ -package # hide from PAUSE - PgBase; - -use strict; -use base 'DBIx::Class::CDBICompat'; - -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; -