DBIx::Class + GitDDLでなんかそれっぽいSQL出す。 - パルカワ213/8/12追記：models("Schema")->deployment_statementsを使うともっと良い感じに出来ると id:soh335 に教えてもらったの忘れてた。 こういう感じのやつ作って package MyApp::CLI::DB::DDL; use 5.10.1; use strict; use warnings; use utf8; use Mouse; use MyApp::Models; use SQL::Translator; use File::Basename qw(dirname); with "MyApp::Role::CLI"; no Mouse; sub run { local $| = 1; my $self = shift; my ($options, @args) = $self->parse_options(@_); my $file =
