From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 11 Apr 2012 07:03:08 +0000 (+0200)
Subject: Relax requirement of a config stanza introduced in 7b71391b3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=50936381f62f1e6a79678f6470722459b53bf2f4;p=dbsrgits%2FDBIx-Class-Historic.git

Relax requirement of a config stanza introduced in 7b71391b3
A schema may very well define a configuration internally
---

diff --git a/script/dbicadmin b/script/dbicadmin
index e167ee4..58ef4c8 100755
--- a/script/dbicadmin
+++ b/script/dbicadmin
@@ -33,14 +33,14 @@ my ($opts, $usage) = describe_options(
   (
     ['Actions'],
     ["action" => hidden => { one_of => [
-      ['create' => 'Create version diffs needs preversion',],
+      ['create' => 'Create version diffs needs preversion'],
       ['upgrade' => 'Upgrade the database to the current schema '],
-      ['install' => 'Install the schema version tables to an existing database',],
-      ['deploy' => 'Deploy the schema to the database',],
-      ['select'   => 'Select data from the schema', ],
-      ['insert'   => 'Insert data into the schema', ],
-      ['update'   => 'Update data in the schema', ],
-      ['delete'   => 'Delete data from the schema',],
+      ['install' => 'Install the schema version tables to an existing database'],
+      ['deploy' => 'Deploy the schema to the database'],
+      ['select'   => 'Select data from the schema'],
+      ['insert'   => 'Insert data into the schema'],
+      ['update'   => 'Update data in the schema'],
+      ['delete'   => 'Delete data from the schema'],
       ['op:s' => 'compatiblity option all of the above can be suppied as --op=<action>'],
       ['help' => 'display this help', { implies => { schema_class => '__dummy__' } } ],
       ['selfinject-pod' => 'hidden', { implies => { schema_class => '__dummy__' } } ],
@@ -50,7 +50,7 @@ my ($opts, $usage) = describe_options(
       ['config-file|config:s' => 'Supply the config file for parsing by Config::Any', { depends => 'config_stanza'} ],
       ['connect-info:s%' => 'Supply the connect info as trailing options e.g. --connect-info dsn=<dsn> user=<user> password=<pass>' ],
       ['connect:s' => 'Supply the connect info as a JSON-encoded structure, e.g. an --connect=["dsn","user","pass"]'],
-    ], required => 1 }],
+    ] }],
     ['schema-class:s' => 'The class of the schema to load', { required => 1 } ],
     ['config-stanza:s' => 'Where in the config to find the connection_info, supply in form MyApp::Model::DB',],
     ['resultset|resultset-class|class:s' => 'The resultset to operate on for data manipulation' ],