fix type constraint in UglyLanguage

diff --git a/lib/SQL/Translator/Parser/DDL/DBIx/Class.pm b/lib/SQL/Translator/Parser/DDL/DBIx/Class.pm
index a20fb1b..ec88e8d 100644 (file)
--- a/lib/SQL/Translator/Parser/DDL/DBIx/Class.pm
+++ b/lib/SQL/Translator/Parser/DDL/DBIx/Class.pm
@@ -1,4 +1,11 @@
 use MooseX::Declare;
+BEGIN {
+  use Moose::Util::TypeConstraints;
+
+  class_type 'DBIx::Class::Schema';
+
+  no Moose::Util::TypeConstraints;
+}
 role SQL::Translator::Parser::DDL::DBIx::Class {
     use MooseX::Types::Moose qw();
     use MooseX::MultiMethods;
@@ -13,7 +20,7 @@ role SQL::Translator::Parser::DDL::DBIx::Class {
     use aliased 'SQL::Translator::Object::Table';
     use aliased 'SQL::Translator::Object::View';
 
-    multi method parse(Schema $data) { $data }
+    multi method parse(DBIx::Class::Schema $data) { $data }
 
     multi method parse(Str $data) {
     }