initial import of SQL::Translator constants

diff --git a/lib/SQL/Translator/Constants.pm b/lib/SQL/Translator/Constants.pm
new file mode 100644 (file)
index 0000000..e553816
--- /dev/null
+++ b/lib/SQL/Translator/Constants.pm
@@ -0,0 +1,20 @@
+package SQL::Translator::Constants;
+use DBI qw(:sql_types);
+use Exporter ();
+
+BEGIN {
+    @ISA = qw(Exporter);
+
+    @EXPORT    = ();
+    @EXPORT_OK = ();
+    %EXPORT_TAGS = (
+        sqlt_types => [
+            qw(),
+            @{$DBI::EXPORT_TAGS{sql_types}}
+        ]
+    );
+
+    Exporter::export_ok_tags(keys %EXPORT_TAGS);
+}
+
+1;