use Moo;
our ( $DEFAULT_SUB, $DEBUG, $ERROR );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$VERSION =~ tr/_//d;
$DEBUG = 0 unless defined $DEBUG;
$ERROR = "";
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
sub filter {
my $schema = shift;
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
sub filter {
my $schema = shift;
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
sub filter {
my $schema = shift;
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
sub parse { "" }
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
our $DEBUG;
$DEBUG = 0 unless defined $DEBUG;
use warnings;
use DBI;
our @EXPORT;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
use constant DRIVERS => {
mysql => 'MySQL',
use SQL::Translator::Schema::Constants;
our ($DEBUG, $VERSION, @EXPORT_OK );
-# $VERSION = '1.60';
+# $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
sub parse {
use SQL::Translator::Parser::MySQL;
our ( $DEBUG, @EXPORT_OK );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
sub parse {
use SQL::Translator::Schema::Field;
use SQL::Translator::Schema::Constraint;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
sub parse {
my ( $tr, $dbh ) = @_;
use SQL::Translator::Schema::Constants;
our ( $DEBUG, @EXPORT_OK );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
my $actions = {c => 'cascade',
use Data::Dumper;
our ( $DEBUG, @EXPORT_OK );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
no strict 'refs';
use Data::Dumper;
our ( $DEBUG, @EXPORT_OK );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
sub parse {
use Data::Dumper;
our ( $DEBUG, @EXPORT_OK );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
no strict 'refs';
use warnings;
our ($DEBUG, @EXPORT_OK);
$DEBUG = 0 unless defined $DEBUG;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
use Spreadsheet::ParseExcel;
use Exporter;
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
use SQL::Translator::Schema;
use SQL::Translator::Utils qw(header_comment);
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
our $DEBUG;
$DEBUG = 0 unless defined $DEBUG;
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
our $DEBUG;
$DEBUG = 0 unless defined $DEBUG;
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
our $DEBUG;
$DEBUG = 0 unless defined $DEBUG;
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
our $DEBUG;
$DEBUG = 0 unless defined $DEBUG;
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
our $DEBUG;
$DEBUG = 0 unless defined $DEBUG;
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
our $DEBUG;
$DEBUG = 0 unless defined $DEBUG;
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
our $DEBUG;
$DEBUG = 0 unless defined $DEBUG;
use strict;
use warnings;
our $DEBUG;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 1 unless defined $DEBUG;
use SQL::Translator::Parser::XML::SQLFairy;
use warnings;
our ( $DEBUG, @EXPORT_OK );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
use Data::Dumper;
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
use SQL::Translator::Schema;
use SQL::Translator::Utils qw(header_comment);
use strict;
use warnings;
our @EXPORT;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
use Exporter;
use Text::ParseWords qw(quotewords);
use strict;
use warnings;
use Scalar::Util ();
-our $VERSION = '1.60';
+our $VERSION = '1.61';
sub produce { "" }
use strict;
use warnings;
our $DEBUG;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 1 unless defined $DEBUG;
use SQL::Translator::Schema::Constants;
use strict;
use warnings;
our ( $DEBUG, $WARN );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
use SQL::Translator::Schema::Constants;
use warnings;
our ( $DEBUG, @EXPORT_OK );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
use File::ShareDir qw/dist_dir/;
use SQL::Translator::Utils qw(debug);
our $DEBUG;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
use constant VALID_FONT_SIZE => {
use Data::Dumper;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
sub produce {
my $t = shift;
use Scalar::Util qw/openhandle/;
our $DEBUG;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
sub produce {
use warnings;
use Data::Dumper;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
our $NAME = __PACKAGE__;
our $NOWRAP = 0 unless defined $NOWRAP;
our $NOLINKTABLE = 0 unless defined $NOLINKTABLE;
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
use JSON::MaybeXS 'to_json';
use warnings;
our @EXPORT_OK;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
use SQL::Translator::Utils 'debug';
use strict;
use warnings;
our ( $DEBUG, %used_names );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
# Maximum length for most identifiers is 64, according to:
use strict;
use warnings;
our ( $DEBUG, $WARN );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
use base 'SQL::Translator::Producer';
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
use SQL::Translator::Schema::Constants;
use SQL::Translator::Utils qw(header_comment);
use strict;
use warnings;
our ( $DEBUG, $WARN );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
use base qw(SQL::Translator::Producer);
use strict;
use warnings;
our ( $DEBUG, $WARN );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 1 unless defined $DEBUG;
use SQL::Translator::Schema::Constants;
use SQL::Translator::Generator::DDL::SQLite;
our ( $DEBUG, $WARN );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
$WARN = 0 unless defined $WARN;
use warnings;
our ( $DEBUG, @EXPORT_OK );
$DEBUG = 0 unless defined $DEBUG;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
use Storable;
use Exporter;
use strict;
use warnings;
our ( $DEBUG, $WARN );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 1 unless defined $DEBUG;
use Data::Dumper;
use warnings;
our @EXPORT_OK;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
use Template;
use Data::Dumper;
use warnings;
our ( $DEBUG, @EXPORT_OK );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
use File::Path;
use warnings;
our ( $DEBUG, @EXPORT_OK );
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 0 unless defined $DEBUG;
use Template;
use strict;
use warnings;
our $DEBUG;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
$DEBUG = 1 unless defined $DEBUG;
use SQL::Translator::Producer::XML::SQLFairy;
use strict;
use warnings;
our @EXPORT_OK;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
use Exporter;
use base qw(Exporter);
use strict;
use warnings;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
use YAML qw(Dump);
extends 'SQL::Translator::Schema::Object';
-our $VERSION = '1.60';
+our $VERSION = '1.61';
has _order => (is => 'ro', default => quote_sub(q{ +{ map { $_ => 0 } qw/
use warnings;
use base qw( Exporter );
require Exporter;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
our @EXPORT = qw[
CHECK_C
extends 'SQL::Translator::Schema::Object';
-our $VERSION = '1.60';
+our $VERSION = '1.61';
my %VALID_CONSTRAINT_TYPE = (
PRIMARY_KEY, 1,
extends 'SQL::Translator::Schema::Object';
-our $VERSION = '1.60';
+our $VERSION = '1.61';
# 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
extends 'SQL::Translator::Schema::Object';
-our $VERSION = '1.60';
+our $VERSION = '1.61';
my %VALID_INDEX_TYPE = (
UNIQUE => 1,
use Moo 1.000003;
# screw you PAUSE
-our $VERSION = '1.60';
+our $VERSION = '1.61';
with qw(
SQL::Translator::Role::Error
extends 'SQL::Translator::Schema::Object';
-our $VERSION = '1.60';
+our $VERSION = '1.61';
=head2 new
extends 'SQL::Translator::Schema::Object';
-our $VERSION = '1.60';
+our $VERSION = '1.61';
# 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
extends 'SQL::Translator::Schema::Object';
-our $VERSION = '1.60';
+our $VERSION = '1.61';
=head2 new
extends 'SQL::Translator::Schema::Object';
-our $VERSION = '1.60';
+our $VERSION = '1.61';
=head2 new
use Try::Tiny;
use Carp qw(carp croak);
-our $VERSION = '1.60';
+our $VERSION = '1.61';
use base qw(Exporter);
our @EXPORT_OK = qw(
use base qw(Exporter);
our @EXPORT_OK;
-our $VERSION = '1.60';
+our $VERSION = '1.61';
our @EXPORT = qw(
schema_ok
table_ok
use SQL::Translator;
use vars qw( $VERSION );
-$VERSION = '1.60';
+$VERSION = '1.61';
my $from; # the original database
my $to; # the destination database
use SQL::Translator;
use vars '$VERSION';
-$VERSION = '1.60';
+$VERSION = '1.61';
#
# Get arguments.
use SQL::Translator::Schema::Constants;
use vars qw( $VERSION );
-$VERSION = '1.60';
+$VERSION = '1.61';
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.60';
+$VERSION = '1.61';
my ( @input, $list, $help, $debug );
for my $arg ( @ARGV ) {
use File::Basename qw(basename);
use vars '$VERSION';
-$VERSION = '1.60';
+$VERSION = '1.61';
my ( $help, $db, $skip, $skiplike, $db_user, $db_pass, $dsn );
GetOptions(
use SQL::Translator;
use vars '$VERSION';
-$VERSION = '1.60';
+$VERSION = '1.61';
#
# Get arguments.
use SQL::Translator;
use vars '$VERSION';
-$VERSION = '1.60';
+$VERSION = '1.61';
my $q = CGI->new;