songmuさんの書いたDBIx::Schema::DSL を使いたい状況が出て来て、 すでに結構もりもり書かれてたDDLを移行する為に書いてみました。

使い方は、Teng::Schema::Dumper と同じように、$dbh を渡すだけで、DSLが吐き出せます。

雰囲気は次のような感じです！

use DBI;
use DBIx::Schema::DSL::Dumper;

my $dbh = DBI->connect('dbi:mysql:dbname=test', 'root', '');
print DBIx::Schema::DSL::Dumper->dump(
    dbh => $dbh,
    pkg => 'Foo::DSL',
);

よかったら使ってほしいです！