use Sub::Exporter instead of Exporter

diff --git a/lib/SQL/Translator/Constants.pm b/lib/SQL/Translator/Constants.pm
index e553816..27041c2 100644 (file)
--- 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;