5 dbicdump - Dump a schema using DBIx::Class::Schema::Loader
9 dbicdump [-o <loader_option>=<value> ] <schema_class> <connect_info>
13 $ dbicdump -o dump_directory=./lib \
14 -o components='["InflateColumn::DateTime"]' \
15 MyApp::Schema dbi:SQLite:./foo.db '{ quote_char => "\"" }'
17 $ dbicdump -o dump_directory=./lib \
18 -o components='["InflateColumn::DateTime"]' \
20 MyApp::Schema dbi:mysql:database=foo user pass '{ quote_char => "`" }'
22 On Windows that would be:
24 $ dbicdump -o dump_directory=.\lib ^
25 -o components="[q{InflateColumn::DateTime}]" ^
27 MyApp::Schema dbi:mysql:database=foo user pass "{ quote_char => q{`} }"
31 Dbicdump generates a L<DBIx::Class> schema using
32 L<DBIx::Class::Schema::Loader/make_schema_at> and dumps it to disk.
34 You can pass any L<DBIx::Class::Schema::Loader::Base> constructor option using
35 C<< -o <option>=<value> >>. For convenience, option names will have C<->
36 replaced with C<_> and values that look like references or quote-like
37 operators will be C<eval>-ed before being passed to the constructor.
39 The C<dump_directory> option defaults to the current directory if not
44 L<DBIx::Class::Schema::Loader>, L<DBIx::Class>.
48 Dagfinn Ilmari Mannsåker C<< <ilmari@ilmari.org> >>
52 Caelum: Rafael Kitover <rkitover@cpan.org>
56 This program is free software; you can redistribute it and/or modify it
57 under the same terms as Perl itself.
67 use DBIx::Class::Schema::Loader qw/ make_schema_at /;
68 require DBIx::Class::Schema::Loader::Base;
72 GetOptions( 'loader-option|o=s%' => \&handle_option );
73 $loader_options->{dump_directory} ||= '.';
75 my ($schema_class, @loader_connect_info) = @ARGV
78 my $dsn = shift @loader_connect_info;
80 my ($user, $pass) = $dsn =~ /sqlite/i ? ('', '')
81 : splice @loader_connect_info, 0, 2;
83 my @extra_connect_info_opts = map parse_value($_), @loader_connect_info;
88 [ $dsn, $user, $pass, @extra_connect_info_opts ],
96 $value = eval $value if $value =~ /^\s*(?:sub\s*\{|q\w?\s*[^\w\s]|[[{])/;
102 my ($self, $key, $value) = @_;
105 die "Unknown option: $key\n"
106 unless DBIx::Class::Schema::Loader::Base->can($key);
108 $value = parse_value $value;
110 $loader_options->{$key} = $value;