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