Introducing DBIx::Class::Schema::SanityChecker

[dbsrgits/DBIx-Class.git] / maint / gen_sqlite_schema_files

diff --git a/maint/gen_sqlite_schema_files b/maint/gen_sqlite_schema_files
index 9fa6a4c..0ac70ec 100755 (executable)
--- a/maint/gen_sqlite_schema_files
+++ b/maint/gen_sqlite_schema_files
@@ -4,8 +4,8 @@ use strict;
 use warnings;
 
 use Module::Runtime 'use_module';
+use DBIx::Class::_Util qw(mkdir_p parent_dir);
 use SQL::Translator;
-use Path::Class 'file';
 use Getopt::Long;
 my $getopt = Getopt::Long::Parser->new(
   config => [qw/gnu_getopt bundling_override no_ignore_case/]
@@ -14,6 +14,7 @@ my $args = {};
 $getopt->getoptions($args, qw/
   ddl-out=s@
   schema-class=s@
+  deploy-to=s@
 /);
 
 die "You need to specify one DDL output filename via --ddl-out\n"
@@ -22,18 +23,29 @@ die "You need to specify one DDL output filename via --ddl-out\n"
 die "You need to specify one DBIC schema class via --schema-class\n"
   if @{$args->{'schema-class'}||[]} != 1;
 
+die "You may not specify more than one deploy path via --deploy-to\n"
+  if @{$args->{'deploy-to'}||[]} > 1;
 
-my $schema = use_module( $args->{'schema-class'}[0] )->connect();
+local $ENV{DBI_DSN};
+my $schema = use_module( $args->{'schema-class'}[0] )->connect(
+  $args->{'deploy-to'}
+    ? ( "DBI:SQLite:$args->{'deploy-to'}[0]", undef, undef, { on_connect_do => "PRAGMA synchronous = OFF" } )
+    : ()
+);
+
+if ($args->{'deploy-to'}) {
+  mkdir_p parent_dir $args->{'deploy-to'}[0];
+  $schema->deploy({ add_drop_table => 1 });
+}
 
 my $ddl_fh;
 if ($args->{'ddl-out'}[0] eq '-') {
   $ddl_fh = *STDOUT;
 }
 else {
-  my $fn = file($args->{'ddl-out'}[0]);
-  $fn->dir->mkpath;
-  open $ddl_fh, '>', $fn
-    or die "Unable to open $fn: $!\n";
+  mkdir_p parent_dir $args->{'ddl-out'}[0];
+  open $ddl_fh, '>', $args->{'ddl-out'}[0]
+    or die "Unable to open $args->{'ddl-out'}[0]: $!\n";
 }
 binmode $ddl_fh;  # avoid win32 \n crapfest