From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Tue, 23 Mar 2010 23:16:01 +0000 (-0500)
Subject: fix type constraint in UglyLanguage
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ddb79249fe90fc5c45012a74cd84ebd432872d8e;p=dbsrgits%2FSQL-Translator-2.0-ish.git

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
--- 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) {
     }