From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Sat, 1 Aug 2009 23:32:28 +0000 (-0700)
Subject: change what roles are applied to ddl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a4b70d7a47fad9f88ef4347f506fc91c800a79b5;p=dbsrgits%2FSQL-Translator-2.0-ish.git

change what roles are applied to ddl
---

diff --git a/lib/SQL/Translator/Parser.pm b/lib/SQL/Translator/Parser.pm
index 9d443c4..7346c3b 100644
--- a/lib/SQL/Translator/Parser.pm
+++ b/lib/SQL/Translator/Parser.pm
@@ -14,9 +14,10 @@ class SQL::Translator::Parser {
 
     my $apply_role_ddl = sub {
         my $self = shift;
-        my $role =  __PACKAGE__ . '::DDL::' . $self->type;
+        my $role =  __PACKAGE__ . '::DDL';
         Class::MOP::load_class($role);
         $role->meta->apply($self);
+        $self->_subclass();
     };
 
     has 'dbh' => (