From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Fri, 10 Jul 2009 05:59:25 +0000 (-0700)
Subject: use Sub::Exporter instead of Exporter
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d7cecc500cb91743be9d3175f220646ff1debbb3;p=dbsrgits%2FSQL-Translator-2.0-ish.git

use Sub::Exporter instead of Exporter
---

diff --git a/lib/SQL/Translator/Constants.pm b/lib/SQL/Translator/Constants.pm
index e553816..27041c2 100644
--- a/lib/SQL/Translator/Constants.pm
+++ b/lib/SQL/Translator/Constants.pm
@@ -1,20 +1,10 @@
 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);
-}
+use Sub::Exporter -setup => {
+    exports => [ @{$DBI::EXPORT_TAGS{sql_types}} ],
+    groups => {
+        sqlt_types => [ @{$DBI::EXPORT_TAGS{sql_types}} ] 
+    }
+};
 
 1;