X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser.pm;h=78d88ec342e425ef217f2fab64a04e1eb364c02f;hb=bab65ec9d6929606bdea1a226ddad3ce1b6b1526;hp=13e3eb0532cd5d7c0a8a39e5b477cb70b6ebbd92;hpb=abb2c32785d707559ca34b277e70d8f9536ecd48;p=dbsrgits%2FSQL-Translator-2.0-ish.git

diff --git a/lib/SQL/Translator/Parser.pm b/lib/SQL/Translator/Parser.pm
index 13e3eb0..78d88ec 100644
--- a/lib/SQL/Translator/Parser.pm
+++ b/lib/SQL/Translator/Parser.pm
@@ -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;