use filename instead of ddl
Justin Hunter [Fri, 3 Jul 2009 21:57:21 +0000 (14:57 -0700)]
lib/SQL/Translator/Parser.pm

index 13e3eb0..78d88ec 100644 (file)
@@ -3,7 +3,6 @@ use namespace::autoclean;
 use Moose;
 use MooseX::Types::Moose qw(Str);
 use SQL::Translator::Types qw(DBIHandle);
-#extends 'SQL::Translator';
 
 my $apply_role_dbi = sub {
     my $self = shift;
@@ -22,7 +21,7 @@ has 'dbh' => (
     trigger => $apply_role_dbi,
 );
 
-has 'ddl' => (
+has 'filename' => (
     isa => Str,
     is => 'ro',
     predicate => 'has_ddl',
@@ -31,13 +30,12 @@ has 'ddl' => (
 
 sub BUILD {}
 
-after BUILD => sub {
+sub parse {
     my $self = shift;
     my $schema = SQL::Translator::Object::Schema->new({ name => $self->schema_name });
     $self->_add_tables($schema);
-    use Data::Dumper;
-    print Dumper($schema);
-};
+    $schema;
+}
 
 __PACKAGE__->meta->make_immutable;