X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FDBI.pm;h=1d0219d1e07e7009a408b19e205718cab8261041;hb=44659089c28216f1984873bc4aa8641e2e0e3410;hp=3f72d7a5109d4b7804c8bcc91e479d5c114401f4;hpb=69dad5b9907410b5baed1cda7412545aa18fbe7a;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Parser/DBI.pm b/lib/SQL/Translator/Parser/DBI.pm index 3f72d7a..1d0219d 100644 --- a/lib/SQL/Translator/Parser/DBI.pm +++ b/lib/SQL/Translator/Parser/DBI.pm @@ -1,9 +1,7 @@ package SQL::Translator::Parser::DBI; # ------------------------------------------------------------------- -# $Id: DBI.pm,v 1.9 2006-05-24 14:45:21 schiffbruechige Exp $ -# ------------------------------------------------------------------- -# Copyright (C) 2002-4 SQLFairy Authors +# Copyright (C) 2002-2009 SQLFairy Authors # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as @@ -121,7 +119,7 @@ query Oracle directly and skip the parsing of a text file, too. use strict; use DBI; use vars qw($VERSION @EXPORT); -$VERSION = sprintf "%d.%02d", q$Revision: 1.9 $ =~ /(\d+)\.(\d+)/; +$VERSION = '1.59'; use constant DRIVERS => { mysql => 'MySQL', @@ -138,17 +136,6 @@ use Exporter; use SQL::Translator::Utils qw(debug); -use SQL::Translator::Parser::DBI::MySQL; -use SQL::Translator::Parser::DBI::SQLServer; -use SQL::Translator::Parser::DBI::SQLite; -use SQL::Translator::Parser::DBI::Sybase; -use SQL::Translator::Parser::DBI::PostgreSQL; -<<<<<<< DBI.pm -use SQL::Translator::Parser::DBI::DB2; -======= -use SQL::Translator::Parser::DBI::Oracle; ->>>>>>> 1.8 - use base qw(Exporter); @EXPORT = qw(parse); @@ -183,11 +170,7 @@ sub parse { my $pkg = "SQL::Translator::Parser::DBI::$driver"; my $sub = $pkg.'::parse'; - # - # I can't get this to work. I seem to have to have the "use" - # statements above. - # -# $tr->load( $pkg ); + SQL::Translator::load( $pkg ); eval { no strict 'refs';