[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Parser / DBI / PostgreSQL.pm

package SQL::Translator::Parser::DBI::PostgreSQL;
use Moose::Role;
use MooseX::Types::Moose qw(Str);

has 'schema_name' => (
  is => 'rw',
  isa => Str,
  required => 1,
  lazy => 1,
  default => 'public'
);

no Moose;

sub _get_view_sql {
    my $self = shift;
    my $view = shift;

    my ($sql) = $self->dbh->selectrow_array("SELECT pg_get_viewdef('$view'::regclass)");
    return $sql;
}

1;
Commit	Line	Data
cc73c25e	1	package SQL::Translator::Parser::DBI::PostgreSQL;
684763c1	2	use Moose::Role;
684763c1	3	use MooseX::Types::Moose qw(Str);
b8657f04	4
684763c1	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	}
cc73c25e	22
cc73c25e	23	1;