issue DB schema statements each within savepoints

lib/App/Netdisco/DB/SchemaVersioned.pm

@@ -0,0 +1,17 @@
+package App::Netdisco::DB::SchemaVersioned;
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Schema::Versioned';
+
+use Try::Tiny;
+use DBIx::Class::Carp;
+
+sub apply_statement {
+    my ($self, $statement) = @_;
+    try { $self->storage->txn_do(sub { $self->storage->dbh->do($statement) }) }
+    catch { carp "SQL was: $statement" if $ENV{DBIC_TRACE} };
+}
+
+1;