add Schema::Versioned support

Netdisco/bin/create_netdisco_schema_version.pl

@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings FATAL => 'all';
+
+use Dancer ':script';
+use Dancer::Plugin::DBIC 'schema';
+
+use Netdisco::DB;
+use Getopt::Long;
+
+my $sql_dir = $Netdisco::DB::schema_versions_dir;
+my $version = schema->schema_version();
+
+my ( $preversion, $help );
+GetOptions(
+  'p|preversion:s'  => \$preversion,
+) or do {
+  print <<ENDHELP;
+    $0 [-p <version>]
+
+    This script creates SQL DDL files of the Netdisco database schema.
+
+    If called without any CLI options, it makes one SQL DDL file which will
+    initialize the complete schema to the current DBIx::Class specification.
+
+    If called with the "-p <version>" option, upgrade SQL DDL command files
+    are created between the specified version and the current DBIx::Class
+    specification.
+
+    SQL DDL files are stored in:
+$sql_dir
+ENDHELP
+  exit(1);
+};
+ 
+schema->create_ddl_dir( 'PostgreSQL', $version, $sql_dir, $preversion );