perl - dbix::class 为非催化剂应用程序生成模式

Question

我最近一直在构建 Catalyst 应用程序，我喜欢的一件事是使用 Catalyst 的创建脚本轻松地为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

另一个支持它的更通用的模块是SQL::Translator。

Answer 3

#!/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