Revision history for DBIx::Class::UUIDColumns
-0.02003 Fri MAr 7 19:52:56 2008
+0.02004 Mon Apr 22 20:41:23 2008
+ - Fix test failure under SQL::Translator <= 0.07
+ - Removed Build.PL now that Module::Install no longer supports it
+ - Removed bogus tests entry in Makefile.PL
+
+0.02003 Fri Mar 7 19:52:56 2008
- Quick fix for CPANTS META/author
0.02002 Mon Sep 24 23:14:45 2007
recommends 'Win32::Guidgen';
recommends 'Win32API::GUID';
-tests "t/*.t t/*/*.t";
+tests 't/*.t';
clean_files "DBIx-Class-UUIDColumns-* t/var";
eval {
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 $@;
};
};