proper parsing, using add_* instead of throwing a whole blob in

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

diff --git a/lib/SQL/Translator/Parser/DBI/PostgreSQL.pm b/lib/SQL/Translator/Parser/DBI/PostgreSQL.pm
index 28d1ac2..8668a76 100644 (file)
--- a/lib/SQL/Translator/Parser/DBI/PostgreSQL.pm
+++ b/lib/SQL/Translator/Parser/DBI/PostgreSQL.pm
@@ -1,8 +1,23 @@
 package SQL::Translator::Parser::DBI::PostgreSQL;
-use Moose;
-use SQL::Translator::Types qw(Schema);
-with 'SQL::Translator::Parser::DBI::Dialect';
+use Moose::Role;
+use MooseX::Types::Moose qw(Str);
 
-has 'schema' => (is => 'ro', isa => Schema, default => sub { SQL::Translator::Object::Schema->new({ name => 'public' }); } );
+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;