簡単ですね。get_table_info.pl #!/usr/local/perl5.8.7/bin/perl use Data::Dumper; use DBIx::Class::Schema::Loader; my $tmp_pkg = 'Temp::Schema'; push @{$tmp_pkg . '::ISA'}, qw/DBIx::Class::Schema::Loader/; $tmp_pkg->loader_options(relationsh…

弾さんのBlogで紹介されたと、kiyokaさんの日記にありました。 Sumibi.orgのUIをほめてくださってますが、別に深く考えたわけでもなんでもなく、sumibiとやりとりすると、そして、HTMLで表現ていうことになると、たぶん誰が作ってもあんな感じになるんじゃな…