From: Justin Hunter Date: Wed, 8 Jul 2009 01:45:20 +0000 (-0700) Subject: initial import of SQL::Translator constants X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=27901cd5f5959c1bb57eaeb5a7aeb6ef1e60424d;p=dbsrgits%2FSQL-Translator-2.0-ish.git initial import of SQL::Translator constants --- diff --git a/lib/SQL/Translator/Constants.pm b/lib/SQL/Translator/Constants.pm new file mode 100644 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;