=cut
use strict;
+use warnings;
use DBI;
use Data::Dumper;
use SQL::Translator::Parser::DB2;
use SQL::Translator::Schema::Constants;
-use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-# $VERSION = '1.59';
+our ($DEBUG, $VERSION, @EXPORT_OK );
+# $VERSION = '1.59_01';
$DEBUG = 0 unless defined $DEBUG;
-# -------------------------------------------------------------------
sub parse {
my ( $tr, $dbh ) = @_;