perl - dbix::class 非触媒アプリのスキーマを生成する

Question

私は最近 Catalyst アプリを構築していますが、私が気に入っていることの 1 つは、Catalyst の create スクリプトを使用してDBIx::Classのテーブル スキーマを簡単に生成することです。テーブルのスキーマを手動で記述せずに DBIX::Class を使用できるようにしたいと考えています。手でやらずにこれを行う方法はありますか？ありがとう！

Answer 1

DBIx::Class::Schema::Loaderのdbicdumpスクリプトは、スキーマのダンプに使用できます。ドキュメントの例:

dbicdump -o dump_directory=./lib \
         -o components='["InflateColumn::DateTime"]' \
         -o debug=1 \
         My::Schema \
         'dbi:Pg:dbname=foo' \
         myuser \
         mypassword

Answer 2

#!/usr/bin/env perl

use Modern::Perl;
use DBIx::Class::Schema::Loader 'make_schema_at';

my $DEBUG = @ARGV and $ARGV[0] =~ /^\-[\-]*v/;

say $DBIx::Class::Schema::Loader::VERSION if $DEBUG;
my @dsn = 'dbi:Pg:dbname=yourDB.db';

my $options = {
debug          => $DEBUG,
dump_directory => 'lib',
components     => [qw/ InflateColumn::DateTime /],
generate_pod   => 0,
};

make_schema_at(Schema => $options, \@dsn);

=head1 NAME

generate_dbic_schema

=head1 USAGE

perl generate_dbic_schema

=cut

Answer 3

それをサポートする他のより一般的なモジュールはSQL::Translatorです。