my $res = $schema->storage->dbh_do(sub {
        my ($storage, $dbh) = @_;
        $dbh->do("
                LOCK TABLES
                tbl AS tbl WRITE,
                tbl AS me WRITE
        ");
});
# now use locked tables as usual