=head1 SYNOPSIS
- dbicdump <configuration_file>
- dbicdump [-I <lib-path>] [-o <loader_option>=<value> ] \
- <schema_class> <connect_info>
+ dbicdump <configuration_file>
+ dbicdump [-I <lib-path>] [-o <loader_option>=<value> ] \
+ <schema_class> <connect_info>
Examples:
- $ dbicdump schema.conf
+ $ dbicdump schema.conf
- $ dbicdump -o dump_directory=./lib \
- -o components='["InflateColumn::DateTime"]' \
- MyApp::Schema dbi:SQLite:./foo.db
+ $ dbicdump -o dump_directory=./lib \
+ -o components='["InflateColumn::DateTime"]' \
+ MyApp::Schema dbi:SQLite:./foo.db
- $ 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"]' \
+ 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 => "`" }'
+ $ dbicdump -Ilib -o dump_directory=./lib \
+ -o components='["InflateColumn::DateTime"]' \
+ -o preserve_case=1 \
+ MyApp::Schema dbi:mysql:database=foo user pass \
+ '{ quote_char => "`" }'
- $ dbicdump -o dump_directory=./lib \
- -o components='["InflateColumn::DateTime"]' \
- MyApp::Schema 'dbi:mysql:database=foo;host=domain.tld;port=3306' user pass
+ $ dbicdump -o dump_directory=./lib \
+ -o components='["InflateColumn::DateTime"]' \
+ MyApp::Schema 'dbi:mysql:database=foo;host=domain.tld;port=3306' \
+ user pass
On Windows that would be:
- $ dbicdump -o dump_directory=.\lib ^
- -o components="[q{InflateColumn::DateTime}]" ^
- -o preserve_case=1 ^
- MyApp::Schema dbi:mysql:database=foo user pass "{ quote_char => q{`} }"
-
+ $ dbicdump -o dump_directory=.\lib ^
+ -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
lib /extra/perl/libs
-
+
# connection string
<connect_info>
dsn dbi:mysql:example
user root
pass secret
</connect_info>
-
+
# dbic loader options
<loader_options>
dump_directory ./lib
use Getopt::Long;
use Pod::Usage;
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 $configuration_file = shift @ARGV;
- my $configurations =
- Config::Any->load_files( {
- use_ext => 1,
- flatten_to_hash => 1,
- files => [$configuration_file] } );
-
+ 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);
}
}
lib->import($_) for @libs;
-
+
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} || {},
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,