$self->storage->backup($self->backup_directory());
}
-# is this just a waste of time?
+# is this just a waste of time? if not then merge with DBI.pm
sub _create_db_to_schema_diff {
my $self = shift;
return;
}
- require SQL::Translator;
- require SQL::Translator::Diff;
+ eval 'require SQL::Translator "0.09"';
+ if ($@) {
+ $self->throw_exception("SQL::Translator 0.09 required");
+ }
my $db_tr = SQL::Translator->new({
add_drop_table => 1,
$version ||= $schema->VERSION || '1.x';
$sqltargs = { ( add_drop_table => 1 ), %{$sqltargs || {}} };
- $self->throw_exception(q{Can't create a ddl file without SQL::Translator 0.08: '}
+ $self->throw_exception(q{Can't create a ddl file without SQL::Translator 0.09: '}
. $self->_check_sqlt_message . q{'})
if !$self->_check_sqlt_version;
return join('', @rows);
}
- $self->throw_exception(q{Can't deploy without SQL::Translator 0.08: '}
+ $self->throw_exception(q{Can't deploy without SQL::Translator 0.09: '}
. $self->_check_sqlt_message . q{'})
if !$self->_check_sqlt_version;
my $_check_sqlt_message; # private
sub _check_sqlt_version {
return $_check_sqlt_version if defined $_check_sqlt_version;
- eval 'use SQL::Translator "0.08"';
+ eval 'use SQL::Translator "0.09"';
$_check_sqlt_message = $@ || '';
$_check_sqlt_version = !$@;
}