From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Thu, 28 May 2009 21:58:21 +0000 (-0700)
Subject: use SQL::Translator::Types
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1e0243f38578e76c16673ed8b5e23c7a35efcdd8;p=dbsrgits%2FSQL-Translator-2.0-ish.git

use SQL::Translator::Types
---

diff --git a/lib/SQL/Translator/Types.pm b/lib/SQL/Translator/Types.pm
new file mode 100644
index 0000000..41da8bb
--- /dev/null
+++ b/lib/SQL/Translator/Types.pm
@@ -0,0 +1,13 @@
+package SQL::Translator::Types;
+use MooseX::Types -declare => [qw(Column Constraint Index Procedure Schema Table Trigger View)];
+
+subtype Column => as 'SQL::Translator::Object::Column';
+subtype Constraint => as 'SQL::Translator:Object::Constraint';
+subtype Index => as 'SQL::Translator:Object::Index';
+subtype Procedure => as 'SQL::Translator:Object::Procedure';
+subtype Schema => as 'SQL::Translator:Object::Schema';
+subtype Table => as 'SQL::Translator::Object::Table';
+subtype Trigger => as 'SQL::Translator:Object::Trigger';
+subtype View => as 'SQL::Translator:Object::View';
+
+1;