allow detection of ddl parser

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

diff --git a/lib/SQL/Translator.pm b/lib/SQL/Translator.pm
index bd07882..567c005 100644 (file)
--- a/lib/SQL/Translator.pm
+++ b/lib/SQL/Translator.pm
@@ -49,7 +49,14 @@ class SQL::Translator {
     
         Class::MOP::load_class($class);
     
-        my $parser = $class->new({ dbh => $self->dbh });
+        my $parser;
+        if ($self->has_dbh) {
+            $parser = $class->new({ dbh => $self->dbh });
+        } elsif ($self->has_ddl) {
+            $parser = $class->new({ filename => $self->filename, type => $self->parser });
+        } else {
+            die "dbh or filename is required!";
+        }
     
         return $parser;
     }
@@ -66,5 +73,4 @@ class SQL::Translator {
     
         return $producer;
     }
-    
 }