my ($self, $schema, %options) = @_;
my $eval = $options{'eval_deploy'};
- eval 'use SQL::Translator';
- if (!$@ && !$options{'no_deploy'}) {
- eval {
- $schema->deploy();
- };
- if ($@ && !$eval) {
- die $@;
- };
- } else {
- open IN, catfile('t', 'sql', 'test.sqlite.sql');
- my $sql;
- { local $/ = undef; $sql = <IN>; }
- close IN;
- eval {
- ($schema->storage->dbh->do($_) || print "Error on SQL: $_\n") for split(/;\n/, $sql);
- };
- if ($@ && !$eval) {
- die $@;
- };
+ open IN, catfile('t', 'sql', 'test.sqlite.sql');
+ my $sql;
+ { local $/ = undef; $sql = <IN>; }
+ close IN;
+ eval {
+ ($schema->storage->dbh->do($_) || print "Error on SQL: $_\n") for split(/;\n/, $sql);
+ };
+ if ($@ && !$eval) {
+ die $@;
};
};