view release on metacpan or  search on metacpan

lib/App/Netdisco/DB/SchemaVersioned.pm  view on Meta::CPAN

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;