Misc. code cleanup

4 files changed, 41 insertions, 47 deletions

diff --git a/bin/db_deploy b/bin/db_deploy
index eca393e..b5bdcb5 100755
--- a/bin/db_deploy
+++ b/bin/db_deploy
@@ -11,21 +11,19 @@ use ASM::DB;
 use Getopt::Long;
 use DBIx::Class::DeploymentHandler;
 
-GetOptions(
-    'config|c=s' => \$::cset,
-);
-if ($::cset eq '') { $::cset = 'config-default'; }
-else { $::cset = "config-$::cset"; }
+GetOptions( 'config|c=s' => \$::cset );
+if   ( $::cset eq '' ) { $::cset = 'config-default'; }
+else                   { $::cset = "config-$::cset"; }
 ASM::Config->readConfig();
 
-my $schema = ASM::DB->connect($::mysql->{dsn}, $::mysql->{user}, $::mysql->{pass});
+my $schema = ASM::DB->connect( $::mysql->{dsn}, $::mysql->{user}, $::mysql->{pass} );
 
-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,
-    });
+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->install;
diff --git a/bin/db_gen_schema_dump b/bin/db_gen_schema_dump
index 1e84dd3..b26989c 100755
--- a/bin/db_gen_schema_dump
+++ b/bin/db_gen_schema_dump
@@ -11,12 +11,12 @@ 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,
-    });
+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;
diff --git a/bin/db_legacy b/bin/db_legacy
index 3206d33..705b04a 100755
--- a/bin/db_legacy
+++ b/bin/db_legacy
@@ -11,22 +11,20 @@ use ASM::DB;
 use Getopt::Long;
 use DBIx::Class::DeploymentHandler;
 
-GetOptions(
-    'config|c=s' => \$::cset,
-);
-if ($::cset eq '') { $::cset = 'config-default'; }
-else { $::cset = "config-$::cset"; }
+GetOptions( 'config|c=s' => \$::cset );
+if   ( $::cset eq '' ) { $::cset = 'config-default'; }
+else                   { $::cset = "config-$::cset"; }
 ASM::Config->readConfig();
 
-my $schema = ASM::DB->connect($::mysql->{dsn}, $::mysql->{user}, $::mysql->{pass});
+my $schema = ASM::DB->connect( $::mysql->{dsn}, $::mysql->{user}, $::mysql->{pass} );
 
-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,
-    });
+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->install_version_storage;
-$dh->add_database_version({ version => 1 });
+$dh->add_database_version( { version => 1 } );
diff --git a/bin/db_upgrade b/bin/db_upgrade
index fc424ae..b1cb133 100755
--- a/bin/db_upgrade
+++ b/bin/db_upgrade
@@ -11,21 +11,19 @@ use ASM::DB;
 use Getopt::Long;
 use DBIx::Class::DeploymentHandler;
 
-GetOptions(
-    'config|c=s' => \$::cset,
-);
-if ($::cset eq '') { $::cset = 'config-default'; }
-else { $::cset = "config-$::cset"; }
+GetOptions( 'config|c=s' => \$::cset );
+if   ( $::cset eq '' ) { $::cset = 'config-default'; }
+else                   { $::cset = "config-$::cset"; }
 ASM::Config->readConfig();
 
-my $schema = ASM::DB->connect($::mysql->{dsn}, $::mysql->{user}, $::mysql->{pass});
+my $schema = ASM::DB->connect( $::mysql->{dsn}, $::mysql->{user}, $::mysql->{pass} );
 
-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,
-    });
+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->upgrade;