1package App::Netdisco::DB::SchemaVersioned;
2
3use strict;
4use warnings;
5
6use base 'DBIx::Class::Schema::Versioned';
7
8use Try::Tiny;
9use DBIx::Class::Carp;
10
11sub apply_statement {
12    my ($self, $statement) = @_;
13    try { $self->storage->txn_do(sub { $self->storage->dbh->do($statement) }) }
14    catch { carp "SQL was: $statement" if $ENV{DBIC_TRACE} };
15}
16
171;
18