File: PgBase.pm

package info (click to toggle)
libclass-dbi-perl 3.0.17-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 548 kB
  • ctags: 251
  • sloc: perl: 2,118; makefile: 6
file content (22 lines) | stat: -rw-r--r-- 549 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
package PgBase;

use strict;
use base 'Class::DBI';

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;