2 role SQL::Translator::Parser::DBI::PostgreSQL {
3 use MooseX::Types::Moose qw(HashRef Str);
4 use SQL::Translator::Types qw(View);
6 has '+schema_name' => (
12 method _get_view_sql(View $view) {
13 my ($sql) = $self->dbh->selectrow_array("SELECT pg_get_viewdef('$view'::regclass)");
17 method _is_auto_increment(HashRef $column_info) {
18 return $column_info->{COLUMN_DEF} && $column_info->{COLUMN_DEF} =~ /^nextval\(/ ? 1 : 0;
21 method _column_default_value(HashRef $column_info) {
22 my $default_value = $column_info->{COLUMN_DEF};
23 $default_value =~ s/::.*$// if defined $default_value;
25 return $default_value;