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