Class::DBIのヘルパが欲しい

テーブル定義からClass::DBIに対応したクラスをファイルとして生成するスクリプトってあるんだろうか？　探したけど見つからなかった。。。



Class::DBI::Loader で定義を読ませて、その後生成された各テーブルクラスのクラス属性（__hasa_relsやら__hasa_listやら）を読んでカラム一覧、主キー、has_a、has_manyなリレーションを拾って.pmファイルを生成させたんだけど、全然美しくない。