DBIx::Class::TableNames

DBIx::Class::ProxyTableと絡んだりするのですが、
動的にテーブルを作ってDBICのスキーマを生成しない場合、
テーブル一覧をとるのがいつも

$self->storage->dbh->tables(undef, undef, $key, 'TABLE');

とかやっててめんどくさいので作ってみたのでした。

http://coderepos.org/share/browser/lang/perl/DBIx-Class-TableNames
こちらからどうぞ。

もしかしたら、もっといい方法があるやもしれず。

（追記）
リンク先まちがってました