use method BUILD instead of triggers

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

diff --git a/lib/SQL/Translator/Parser.pm b/lib/SQL/Translator/Parser.pm
index ff055b5..bce6f86 100644 (file)
--- a/lib/SQL/Translator/Parser.pm
+++ b/lib/SQL/Translator/Parser.pm
@@ -1,5 +1,42 @@
-package SQL::Translator::Parser;
-use Moose;
-extends 'SQL::Translator';
+use MooseX::Declare;
+class SQL::Translator::Parser {
+    use MooseX::Types::Moose qw(Str);
+    use SQL::Translator::Types qw(DBIHandle);
+    use aliased 'SQL::Translator::Object::Schema';
 
-1;
+    has 'dbh' => (
+        isa => DBIHandle,
+        is => 'ro',
+        predicate => 'has_dbh',
+    );
+
+    has 'filename' => (
+        isa => Str,
+        is => 'ro',
+        predicate => 'has_ddl',
+    );
+
+    has 'type' => (
+        isa => Str,
+        is => 'ro',
+        predicate => 'has_type',
+    );
+
+    method BUILD(@) {
+        my $role = __PACKAGE__;
+        if ($self->has_dbh) {
+            $role .= '::DBI';
+        } elsif ($self->has_type || $self->has_ddl) {
+            $role .= '::DDL';
+        }
+        Class::MOP::load_class($role);
+        $role->meta->apply($self);
+        $self->_subclass();
+    }
+
+    method parse {
+        my $schema = Schema->new({ name => $self->schema_name });
+        $self->_add_tables($schema);
+        $schema;
+    }
+}