add -I option to dbicdump

[dbsrgits/DBIx-Class-Schema-Loader.git] / script / dbicdump

diff --git a/script/dbicdump b/script/dbicdump
index c6fdf3a..020ebf2 100644 (file)
--- a/script/dbicdump
+++ b/script/dbicdump
@@ -7,7 +7,8 @@ dbicdump - Dump a schema using DBIx::Class::Schema::Loader
 =head1 SYNOPSIS
 
   dbicdump <configuration_file>
-  dbicdump [-o <loader_option>=<value> ] <schema_class> <connect_info>
+  dbicdump [-I <lib-path>] [-o <loader_option>=<value> ] \
+                <schema_class> <connect_info>
 
 Examples:
 
@@ -15,10 +16,14 @@ Examples:
 
   $ dbicdump -o dump_directory=./lib \
     -o components='["InflateColumn::DateTime"]' \
-    MyApp::Schema dbi:SQLite:./foo.db '{ quote_char => "\"" }'
+    MyApp::Schema dbi:SQLite:./foo.db
 
   $ dbicdump -o dump_directory=./lib \
     -o components='["InflateColumn::DateTime"]' \
+    MyApp::Schema dbi:SQLite:./foo.db '{ quote_char => "\"" }'
+
+  $ dbicdump -Ilib -o dump_directory=./lib \
+    -o components='["InflateColumn::DateTime"]' \
     -o preserve_case=1 \
     MyApp::Schema dbi:mysql:database=foo user pass '{ quote_char => "`" }'
 
@@ -33,10 +38,12 @@ On Windows that would be:
     -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,
+Configuration files must have schema_class and connect_info sections,
 an example of a general config file is as follows:
 
     schema_class MyApp::Schema
+
+    lib /extra/perl/libs
     
     # connection string
     <connect_info>
@@ -51,6 +58,10 @@ an example of a general config file is as follows:
         components  TimeStamp
     </loader_options>
 
+Using a config file requires L<Config::Any> installed.
+
+The optional C<lib> key is equivalent to the C<-I> option.
+
 =head1 DESCRIPTION
 
 Dbicdump generates a L<DBIx::Class> schema using
@@ -70,12 +81,14 @@ L<DBIx::Class::Schema::Loader>, L<DBIx::Class>.
 
 =head1 AUTHOR
 
-Dagfinn Ilmari Mannsåker C<< <ilmari@ilmari.org> >>
+Dagfinn Ilmari Manns?ker C<< <ilmari@ilmari.org> >>
 
 =head1 CONTRIBUTORS
 
 Caelum: Rafael Kitover <rkitover@cpan.org>
 
+alnewkirk: Al Newkirk <awncorp@cpan.org>
+
 =head1 LICENSE
 
 This program is free software; you can redistribute it and/or modify it
@@ -86,20 +99,32 @@ under the same terms as Perl itself.
 use strict;
 use warnings;
 use Getopt::Long;
-use Config::Any;
-
 use Pod::Usage;
-
-use DBIx::Class::Schema::Loader qw/ make_schema_at /;
-require DBIx::Class::Schema::Loader::Base;
+use DBIx::Class::Schema::Loader 'make_schema_at';
+use namespace::clean;
+use DBIx::Class::Schema::Loader::Base ();
+use DBIx::Class::Schema::Loader::Optional::Dependencies ();
+require lib;
 
 my $loader_options;
 
-GetOptions( 'loader-option|o=s%' => \&handle_option );
+Getopt::Long::Configure('gnu_getopt');
+
+GetOptions(
+    'I=s'                => sub { shift; lib->import(shift) },
+    'loader-option|o=s%' => \&handle_option,
+);
+
 $loader_options->{dump_directory} ||= '.';
 
 if (@ARGV == 1) {
+    if (not DBIx::Class::Schema::Loader::Optional::Dependencies->req_ok_for('dbicdump_config')) {
+        die sprintf "You must install the following CPAN modules to use a config file with dbicdump: %s.\n",
+            DBIx::Class::Schema::Loader::Optional::Dependencies->req_missing_for('dbicdump_config');
+    }
+
     my $configuration_file = shift @ARGV;
+
     my $configurations =
       Config::Any->load_files( {
             use_ext => 1,
@@ -111,6 +136,18 @@ if (@ARGV == 1) {
     unless (keys %{$c->{connect_info}} && $c->{schema_class}) {
         pod2usage(1);
     }
+
+    my @libs;
+
+    if ($c->{lib}) {
+        if (ref $c->{lib}) {
+            @libs = @{ $c->{lib} };
+        }
+
+        @libs = ($c->{lib});
+    }
+
+    lib->import($_) for @libs;
     
     my ($dsn, $user, $pass, $options) =
         map { $c->{connect_info}->{$_} } qw/dsn user pass options/;