1 package SQL::Translator::Parser::DBI::PostgreSQL;
3 # -------------------------------------------------------------------
4 # $Id: PostgreSQL.pm,v 1.2 2003-10-13 19:51:31 phrrngtn Exp $
5 # -------------------------------------------------------------------
6 # Copyright (C) 2003 Ken Y. Clark <kclark@cpan.org>.
8 # This program is free software; you can redistribute it and/or
9 # modify it under the terms of the GNU General Public License as
10 # published by the Free Software Foundation; version 2.
12 # This program is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 # General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with this program; if not, write to the Free Software
19 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
21 # -------------------------------------------------------------------
25 SQL::Translator::Parser::DBI::PostgreSQL - parser for DBD::Pg
29 See SQL::Translator::Parser::DBI.
41 use SQL::Translator::Schema::Constants;
43 use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
44 $VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/;
45 $DEBUG = 0 unless defined $DEBUG;
47 # -------------------------------------------------------------------
49 my ( $tr, $dbh ) = @_;
51 my $schema = $tr->schema;
53 my ($sth, @tables, $columns);
57 if ($dbh->{FetchHashKeyName} ne 'NAME_uc') {
58 # warn "setting dbh attribute {FetchHashKeyName} to NAME_uc";
59 $dbh->{FetchHashKeyName} = 'NAME_uc';
62 if ($dbh->{ChopBlanks} != 1) {
63 # warn "setting dbh attribute {ChopBlanks} to 1";
64 $dbh->{ChopBlanks} = 1;
67 $sth = $dbh->column_info();
68 foreach my $c (@{$sth->fetchall_arrayref({})}) {
73 ->{$c->{COLUMN_NAME}}= $c;
76 $sth = $dbh->table_info();
78 @tables = @{$sth->fetchall_arrayref({})};
80 foreach my $table_info (@tables) {
82 unless (defined($table_info->{TABLE_TYPE}));
84 if ($table_info->{TABLE_TYPE} eq 'TABLE'&&
85 $table_info->{TABLE_SCHEM} eq 'public') {
86 my $table = $schema->add_table(
87 name => $table_info->{TABLE_NAME},
88 type => $table_info->{TABLE_TYPE},
89 ) || die $schema->error;
93 $columns->{$table_info->{TABLE_SCHEM}}
94 ->{$table_info->{TABLE_NAME}}
97 foreach my $c (values %{$cols}) {
98 my $f = $table->add_field(
99 name => $c->{COLUMN_NAME},
100 data_type => $c->{TYPE_NAME},
101 order => $c->{ORDINAL_POSITION},
102 size => $c->{COLUMN_SIZE},
103 ) || die $table->error;
106 if ($c->{NULLABLE} == 1);
116 # -------------------------------------------------------------------
117 # Where man is not nature is barren.
119 # -------------------------------------------------------------------
125 Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
129 perl(1), Parse::RecDescent, SQL::Translator::Schema.