lib/SQL/Translator/Constants.pm

   1 package SQL::Translator::Constants;
   2 use DBI qw(:sql_types);
   3 use Exporter ();
   4
   5 BEGIN {
   6     @ISA = qw(Exporter);
   7
   8     @EXPORT    = ();
   9     @EXPORT_OK = ();
  10     %EXPORT_TAGS = (
  11         sqlt_types => [
  12             qw(),
  13             @{$DBI::EXPORT_TAGS{sql_types}}
  14         ]
  15     );
  16
  17     Exporter::export_ok_tags(keys %EXPORT_TAGS);
  18 }
  19
  20 1;