config file support for dbicdump script

Changes dbicdump so that if only one parameter is given it is used as
the config file loaded with Config::Any. The config file must have the
keys schema_class and connect_info, and optionally loader_options.

diff --git a/lib/DBIx/Class/Schema/Loader.pm b/lib/DBIx/Class/Schema/Loader.pm
index 7a9e4f6..ab10bf5 100644 (file)
--- a/lib/DBIx/Class/Schema/Loader.pm
+++ b/lib/DBIx/Class/Schema/Loader.pm
@@ -540,6 +540,8 @@ spb: Stephen Bennett <spb@exherbo.org>
 
 Matias E. Fernandez <mfernandez@pisco.ch>
 
+Al Newkirk <awncorp@cpan.org>
+
 ... and lots of other folks. If we forgot you, please write the current
 maintainer or RT.
 

diff --git a/script/dbicdump b/script/dbicdump
index b51f0b8..c6fdf3a 100644 (file)
--- a/script/dbicdump
+++ b/script/dbicdump
@@ -6,10 +6,13 @@ dbicdump - Dump a schema using DBIx::Class::Schema::Loader
 
 =head1 SYNOPSIS
 
+  dbicdump <configuration_file>
   dbicdump [-o <loader_option>=<value> ] <schema_class> <connect_info>
 
 Examples:
 
+  $ dbicdump schema.conf
+
   $ dbicdump -o dump_directory=./lib \
     -o components='["InflateColumn::DateTime"]' \
     MyApp::Schema dbi:SQLite:./foo.db '{ quote_char => "\"" }'
@@ -29,6 +32,24 @@ On Windows that would be:
     -o components="[q{InflateColumn::DateTime}]" ^
     -o preserve_case=1 ^
     MyApp::Schema dbi:mysql:database=foo user pass "{ quote_char => q{`} }"
+    
+Configuration Files must have schema_class and connect_info sections,
+an example of a general config file is as follows:
+
+    schema_class MyApp::Schema
+    
+    # connection string
+    <connect_info>
+        dsn     dbi:mysql:example
+        user    root
+        pass    secret
+    </connect_info>
+    
+    # dbic loader options
+    <loader_options>
+        components  InflateColumn::DateTime
+        components  TimeStamp
+    </loader_options>
 
 =head1 DESCRIPTION
 
@@ -65,6 +86,7 @@ under the same terms as Perl itself.
 use strict;
 use warnings;
 use Getopt::Long;
+use Config::Any;
 
 use Pod::Usage;
 
@@ -76,21 +98,49 @@ my $loader_options;
 GetOptions( 'loader-option|o=s%' => \&handle_option );
 $loader_options->{dump_directory} ||= '.';
 
-my ($schema_class, @loader_connect_info) = @ARGV
-    or pod2usage(1);
-
-my $dsn = shift @loader_connect_info;
-
-my ($user, $pass) = $dsn =~ /sqlite/i ? ('', '')
-    : splice @loader_connect_info, 0, 2;
-
-my @extra_connect_info_opts = map parse_value($_), @loader_connect_info;
-
-make_schema_at(
-    $schema_class,
-    $loader_options,
-    [ $dsn, $user, $pass, @extra_connect_info_opts ],
-);
+if (@ARGV == 1) {
+    my $configuration_file = shift @ARGV;
+    my $configurations =
+      Config::Any->load_files( {
+            use_ext => 1,
+            flatten_to_hash => 1,
+            files => [$configuration_file] } );
+    
+    my $c = (values %$configurations)[0];
+    
+    unless (keys %{$c->{connect_info}} && $c->{schema_class}) {
+        pod2usage(1);
+    }
+    
+    my ($dsn, $user, $pass, $options) =
+        map { $c->{connect_info}->{$_} } qw/dsn user pass options/;
+        $options ||= {};
+        $c->{loader_options}->{dump_directory} ||=
+            $loader_options->{dump_directory};
+    
+    make_schema_at(
+        $c->{schema_class},
+        $c->{loader_options} || {},
+        [ $dsn, $user, $pass, %{$options} ],
+    );
+}
+else {
+    my ($schema_class, @loader_connect_info) = @ARGV
+        or pod2usage(1);
+    
+    my $dsn = shift @loader_connect_info;
+    
+    my ($user, $pass) = $dsn =~ /sqlite/i ? ('', '')
+        : splice @loader_connect_info, 0, 2;
+    
+    my @extra_connect_info_opts = map parse_value($_), @loader_connect_info;
+    
+    make_schema_at(
+        $schema_class,
+        $loader_options,
+        [ $dsn, $user, $pass, @extra_connect_info_opts ],
+    );
+}
 
 exit 0;