From de9f3deabe35fcc0a09dd4c62b6c626ba4282447 Mon Sep 17 00:00:00 2001
From: Janik Kleinhoff <ilbelkyr@shalture.org>
Date: Sun, 30 Oct 2016 10:11:11 +0000
Subject: Use DBIx::Class::DeploymentHandler

Fixes T5. Yay! We still need some documentation on this, though.
---
 bin/db_gen_schema_dump | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 bin/db_gen_schema_dump

(limited to 'bin/db_gen_schema_dump')

diff --git a/bin/db_gen_schema_dump b/bin/db_gen_schema_dump
new file mode 100755
index 0000000..1e84dd3
--- /dev/null
+++ b/bin/db_gen_schema_dump
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+use v5.20;
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+
+use ASM::DB;
+use DBIx::Class::DeploymentHandler;
+
+my $schema = ASM::DB->clone;
+
+my $dh = DBIx::Class::DeploymentHandler->new({
+        schema => $schema,
+        schema_version => '' . $schema->schema_version,
+        sql_translator_args => { add_drop_table => 0, quote_identifiers => 1 },
+        databases => [],
+        ignore_ddl => 1,
+    });
+
+$dh->prepare_install;
-- 
cgit v1.2.3