1 package SQL::Translator::Parser::DBI::PostgreSQL;
2 use namespace::autoclean;
4 use MooseX::Types::Moose qw(Str);
6 has '+schema_name' => (
17 my ($sql) = $self->dbh->selectrow_array("SELECT pg_get_viewdef('$view'::regclass)");
21 sub _is_auto_increment {
23 my $column_info = shift;
25 return $column_info->{COLUMN_DEF} && $column_info->{COLUMN_DEF} =~ /^nextval\(/ ? 1 : 0;
28 sub _column_default_value {
30 my $column_info = shift;
31 my $default_value = $column_info->{COLUMN_DEF};
33 if (defined $default_value) {
34 $default_value =~ s/::.*$//
36 return $default_value;