DBIx::InspectorでTengのSchemaを生成する - Senchan->find('all'); 以前書いたDBIx::Inspectorを使ったSchema生成スクリプトをちょっと賢くしてみた。 複合PKとかJSONのInflate/Deflateにも対応したり、そもそもInflate/Deflateが不要なテーブルにInflate/Deflateルールを書かなかったりと割と実用的になったつもり。 #! /usr/bin/env perl use strict; use warnings; use DBIx::Inspector; use lib './lib'; use Wagayatei::DB; use Data::Section::Simple; use Text::Xslate; use Teng::Schema; use Path::Class qw(dir)