Skip error/warn frames within CAG - saner callsite error messages this way
[dbsrgits/DBIx-Class.git] / maint / gen-schema.pl
CommitLineData
f54428ab 1#!/usr/bin/env perl
0009fa49 2
3use strict;
4use warnings;
5use lib qw(lib t/lib);
6
064ec2db 7use DBICTest::Schema;
ebf846e8 8use SQL::Translator;
0009fa49 9
ebf846e8 10my $schema = DBICTest::Schema->connect;
181b2261 11print scalar ($schema->storage->deployment_statements(
12 $schema,
13 'SQLite',
14 undef,
15 undef,
16 { producer_args => { no_transaction => 1 } }
17));