use SQL::Translator;
use vars qw( $VERSION );
-$VERSION = '1.99';
+$VERSION = '1.59';
my $from; # the original database
my $to; # the destination database
use SQL::Translator;
use vars '$VERSION';
-$VERSION = '1.99';
+$VERSION = '1.59';
#
# Get arguments.
use SQL::Translator::Schema::Constants;
use vars qw( $VERSION );
-$VERSION = '1.99';
+$VERSION = '1.59';
my ( @input, $list, $help, $debug, $trace, $caseopt, $ignore_index_names,
$ignore_constraint_names, $output_db, $mysql_parser_version,
use SQL::Translator::Schema::Constants;
use vars qw( $VERSION );
-$VERSION = '1.99';
+$VERSION = '1.59';
my ( @input, $list, $help, $debug );
for my $arg ( @ARGV ) {
use File::Basename qw(basename);
use vars '$VERSION';
-$VERSION = '1.99';
+$VERSION = '1.59';
my ( $help, $db, $skip, $skiplike, $db_user, $db_pass, $dsn );
GetOptions(
use SQL::Translator;
use vars '$VERSION';
-$VERSION = '1.99';
+$VERSION = '1.59';
#
# Get arguments.
use SQL::Translator;
use vars '$VERSION';
-$VERSION = '1.99';
+$VERSION = '1.59';
my $q = CGI->new;
use strict;
use vars qw/$VERSION/;
-$VERSION = '1.99';
+$VERSION = '1.59';
sub filter {
my $schema = shift;
use strict;
use vars qw/$VERSION/;
-$VERSION = '1.99';
+$VERSION = '1.59';
sub filter {
my $schema = shift;
use strict;
use vars qw/$VERSION/;
-$VERSION = '1.99';
+$VERSION = '1.59';
sub filter {
my $schema = shift;
use strict;
use vars qw( $VERSION );
-$VERSION = '1.99';
+$VERSION = '1.59';
sub parse { "" }
use strict;
use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use Data::Dumper;
use strict;
use DBI;
use vars qw($VERSION @EXPORT);
-$VERSION = '1.99';
+$VERSION = '1.59';
use constant DRIVERS => {
mysql => 'MySQL',
use SQL::Translator::Schema::Constants;
use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-# $VERSION = '1.99';
+# $VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
# -------------------------------------------------------------------
use SQL::Translator::Parser::MySQL;
use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
# -------------------------------------------------------------------
use SQL::Translator::Schema::Field;
use SQL::Translator::Schema::Constraint;
-our $VERSION = '1.99';
+our $VERSION = '1.59';
# -------------------------------------------------------------------
sub parse {
use SQL::Translator::Schema::Constants;
use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
# -------------------------------------------------------------------
use Data::Dumper;
use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
no strict 'refs';
use Data::Dumper;
use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
# -------------------------------------------------------------------
use Data::Dumper;
use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
no strict 'refs';
use strict;
use vars qw($DEBUG $VERSION @EXPORT_OK);
$DEBUG = 0 unless defined $DEBUG;
-$VERSION = '1.99';
+$VERSION = '1.59';
use Spreadsheet::ParseExcel;
use Exporter;
use strict;
use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use Data::Dumper;
use strict;
use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use Data::Dumper;
use strict;
use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use Data::Dumper;
use strict;
use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use Data::Dumper;
use strict;
use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use Data::Dumper;
use strict;
use vars qw($DEBUG $VERSION @EXPORT_OK);
$DEBUG = 0 unless defined $DEBUG;
-$VERSION = '1.99';
+$VERSION = '1.59';
use Storable;
use Exporter;
use strict;
use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use Data::Dumper;
use strict;
use vars qw[ $VERSION $DEBUG ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 1 unless defined $DEBUG;
use SQL::Translator::Parser::XML::SQLFairy;
use strict;
use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use Data::Dumper;
use strict;
use vars qw($VERSION);
-$VERSION = '1.99';
+$VERSION = '1.59';
use SQL::Translator::Schema;
use SQL::Translator::Utils qw(header_comment);
use strict;
use vars qw($VERSION @EXPORT);
-$VERSION = '1.99';
+$VERSION = '1.59';
use Exporter;
use Text::ParseWords qw(quotewords);
use strict;
use vars qw($VERSION);
-$VERSION = '1.99';
+$VERSION = '1.59';
sub produce { "" }
use strict;
use vars qw[ $VERSION $DEBUG ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 1 unless defined $DEBUG;
use SQL::Translator::Schema::Constants;
use warnings;
use strict;
use vars qw[ $VERSION $DEBUG $WARN ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use SQL::Translator::Schema::Constants;
use strict;
use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use SQL::Translator::Utils 'debug';
use SQL::Translator::Utils qw(debug);
use vars qw[ $VERSION $DEBUG ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use constant VALID_FONT_SIZE => {
use Data::Dumper;
-$VERSION = '1.99';
+$VERSION = '1.59';
sub produce {
my $t = shift;
use Scalar::Util qw/openhandle/;
use vars qw[ $VERSION $DEBUG ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use constant VALID_LAYOUT => {
use Data::Dumper;
use vars qw($VERSION $NOWRAP $NOLINKTABLE $NAME);
-$VERSION = '1.99';
+$VERSION = '1.59';
$NAME = __PACKAGE__;
$NOWRAP = 0 unless defined $NOWRAP;
use strict;
use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use SQL::Translator::Utils 'debug';
use strict;
use warnings;
use vars qw[ $VERSION $DEBUG %used_names ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
# Maximum length for most identifiers is 64, according to:
use strict;
use vars qw[ $VERSION $DEBUG $WARN ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use SQL::Translator::Schema::Constants;
use strict;
use vars qw[ $VERSION ];
-$VERSION = '1.99';
+$VERSION = '1.59';
use SQL::Translator::Schema::Constants;
use SQL::Translator::Utils qw(header_comment);
use strict;
use warnings;
use vars qw[ $DEBUG $WARN $VERSION %used_names ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use base qw(SQL::Translator::Producer);
use strict;
use vars qw[ $DEBUG $WARN $VERSION ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 1 unless defined $DEBUG;
use Data::Dumper;
use vars qw[ $VERSION $DEBUG $WARN ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
$WARN = 0 unless defined $WARN;
use strict;
use vars qw($DEBUG $VERSION @EXPORT_OK);
$DEBUG = 0 unless defined $DEBUG;
-$VERSION = '1.99';
+$VERSION = '1.59';
use Storable;
use Exporter;
use strict;
use vars qw[ $DEBUG $WARN $VERSION ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 1 unless defined $DEBUG;
use Data::Dumper;
use strict;
use vars qw[ $VERSION @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
use Template;
use Data::Dumper;
use strict;
use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use File::Path;
use strict;
use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
use Template;
use strict;
use vars qw[ $VERSION $DEBUG ];
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEBUG = 1 unless defined $DEBUG;
use SQL::Translator::Producer::XML::SQLFairy;
use strict;
use vars qw[ $VERSION @EXPORT_OK ];
-$VERSION = '1.99';
+$VERSION = '1.59';
use Exporter;
use base qw(Exporter);
use strict;
use vars qw($VERSION);
-$VERSION = '1.99';
+$VERSION = '1.59';
use YAML qw(Dump);
use base 'SQL::Translator::Schema::Object';
use vars qw[ $VERSION $TABLE_ORDER $VIEW_ORDER $TRIGGER_ORDER $PROC_ORDER ];
-$VERSION = '1.99';
+$VERSION = '1.59';
__PACKAGE__->_attributes(qw/name database translator/);
use base qw( Exporter );
use vars qw( @EXPORT $VERSION );
require Exporter;
-$VERSION = '1.99';
+$VERSION = '1.59';
@EXPORT = qw[
CHECK_C
use vars qw($VERSION $TABLE_COUNT $VIEW_COUNT);
-$VERSION = '1.99';
+$VERSION = '1.59';
my %VALID_CONSTRAINT_TYPE = (
PRIMARY_KEY, 1,
use vars qw($VERSION $TABLE_COUNT $VIEW_COUNT);
-$VERSION = '1.99';
+$VERSION = '1.59';
# Stringify to our name, being careful not to pass any args through so we don't
# accidentally set it to undef. We also have to tweak bool so the object is
use vars qw($VERSION $TABLE_COUNT $VIEW_COUNT);
-$VERSION = '1.99';
+$VERSION = '1.59';
my %VALID_INDEX_TYPE = (
UNIQUE => 1,
use vars qw[ $VERSION ];
-$VERSION = '1.99';
+$VERSION = '1.59';
=head1 Construction
use vars qw($VERSION);
-$VERSION = '1.99';
+$VERSION = '1.59';
# ----------------------------------------------------------------------
use vars qw( $VERSION $FIELD_ORDER );
-$VERSION = '1.99';
+$VERSION = '1.59';
# Stringify to our name, being careful not to pass any args through so we don't
# accidentally set it to undef. We also have to tweak bool so the object is
use vars qw($VERSION $TABLE_COUNT $VIEW_COUNT);
-$VERSION = '1.99';
+$VERSION = '1.59';
# ----------------------------------------------------------------------
use vars qw($VERSION $TABLE_COUNT $VIEW_COUNT);
-$VERSION = '1.99';
+$VERSION = '1.59';
# ----------------------------------------------------------------------
use Exporter;
-$VERSION = '1.99';
+$VERSION = '1.59';
$DEFAULT_COMMENT = '-- ';
@EXPORT_OK = qw(
debug normalize_name header_comment parse_list_arg truncate_id_uniquely $DEFAULT_COMMENT parse_mysql_version
use base qw(Exporter);
use vars qw($VERSION @EXPORT @EXPORT_OK);
-$VERSION = '1.99';
+$VERSION = '1.59';
@EXPORT = qw(
schema_ok
table_ok