Commit | Line | Data |
---|---|---|
cc73c25e | 1 | package SQL::Translator::Parser::DBI::PostgreSQL; |
684763c1 | 2 | use Moose::Role; |
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 | |
23 | 1; |