=cut
use strict;
+use warnings;
use DBI;
use SQL::Translator::Parser::SQLite;
use Data::Dumper;
-use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = '1.59';
+our ( $DEBUG, @EXPORT_OK );
+our $VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
sub parse {