lib/SQL/Translator/Parser/DBI/PostgreSQL.pm

   1 package SQL::Translator::Parser::DBI::PostgreSQL;
   2 use namespace::autoclean;
   3 use Moose::Role;
   4 use MooseX::Types::Moose qw(Str);
   5
   6 has '+schema_name' => (
   7   isa => Str,
   8   required => 1,
   9   lazy => 1,
  10   default => 'public'
  11 );
  12
  13 sub _get_view_sql {
  14     my $self = shift;
  15     my $view = shift;
  16
  17     my ($sql) = $self->dbh->selectrow_array("SELECT pg_get_viewdef('$view'::regclass)");
  18     return $sql;
  19 }
  20
  21 1;