support extra connect_info options like quote_char for dbicdump

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

diff --git a/script/dbicdump b/script/dbicdump
index d1573b2..628aa3e 100644 (file)
--- a/script/dbicdump
+++ b/script/dbicdump
@@ -8,6 +8,17 @@ dbicdump - Dump a schema using DBIx::Class::Schema::Loader
 
   dbicdump [-o <loader_option>=<value> ] <schema_class> <connect_info>
 
+Examples:
+
+  $ dbicdump -o dump_directory=./lib \
+    -o components='["InflateColumn::DateTime"]' \
+    MyApp::Schema dbi:SQLite:./foo.db '{ quote_char => "\"" }'
+
+  $ dbicdump -o dump_directory=./lib \
+    -o components='["InflateColumn::DateTime"]' \
+    -o preserve_case=1 \
+    MyApp::Schema dbi:mysql:database=foo user pass '{ quote_char => "`" }'
+
 =head1 DESCRIPTION
 
 Dbicdump generates a L<DBIx::Class> schema using
@@ -29,6 +40,10 @@ L<DBIx::Class::Schema::Loader>, L<DBIx::Class>.
 
 Dagfinn Ilmari Mannsåker C<< <ilmari@ilmari.org> >>
 
+=head1 CONTRIBUTORS
+
+Caelum: Rafael Kitover <rkitover@cpan.org>
+
 =head1 LICENSE
 
 This program is free software; you can redistribute it and/or modify it
@@ -53,6 +68,29 @@ $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 ],
+);
+
+exit 0;
+
+sub parse_value {
+    my $value = shift;
+
+    $value = eval $value if $value =~ /^\s*(?:sub\s*\{|q\w?\s*[^\w\s]|[[{])/;
+
+    return $value;
+}
+
 sub handle_option {
     my ($self, $key, $value) = @_;
 
@@ -60,13 +98,11 @@ sub handle_option {
     die "Unknown option: $key\n"
         unless DBIx::Class::Schema::Loader::Base->can($key);
 
-    $value = eval $value if $value =~ /^\s*(?:sub\s*\{|q\w?\s*[^\w\s]|[[{])/;
+    $value = parse_value $value;
 
     $loader_options->{$key} = $value;
 }
 
-make_schema_at(
-    $schema_class,
-    $loader_options,
-    \@loader_connect_info,
-);
+1;
+
+__END__