/usr/bin/dbicdump is in libdbix-class-schema-loader-perl 0.07010-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 | #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
=head1 NAME
dbicdump - Dump a schema using DBIx::Class::Schema::Loader
=head1 SYNOPSIS
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 => "`" }'
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{`} }"
=head1 DESCRIPTION
Dbicdump generates a L<DBIx::Class> schema using
L<DBIx::Class::Schema::Loader/make_schema_at> and dumps it to disk.
You can pass any L<DBIx::Class::Schema::Loader::Base> constructor option using
C<< -o <option>=<value> >>. For convenience, option names will have C<->
replaced with C<_> and values that look like references or quote-like
operators will be C<eval>-ed before being passed to the constructor.
The C<dump_directory> option defaults to the current directory if not
specified.
=head1 SEE ALSO
L<DBIx::Class::Schema::Loader>, L<DBIx::Class>.
=head1 AUTHOR
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
under the same terms as Perl itself.
=cut
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use DBIx::Class::Schema::Loader qw/ make_schema_at /;
require DBIx::Class::Schema::Loader::Base;
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 ],
);
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) = @_;
$key =~ tr/-/_/;
die "Unknown option: $key\n"
unless DBIx::Class::Schema::Loader::Base->can($key);
$value = parse_value $value;
$loader_options->{$key} = $value;
}
1;
__END__
|