[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Constants.pm

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;
Commit	Line	Data
27901cd5	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;