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

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