DBIx::Class ＋ Catalyst::View::JSON（２） - ヒルズで働く@robarioの技ログ以前書いたエントリの修正です。 get_columnsだとinflateを通らないようなので、明示的にアクセサを呼ぶように修正しました。使い方には変更ありません。 sub inflate_row { my $row = shift; my %data; foreach my $column ( $row->result_source->columns ) { $data{$column} = $row->$column; } return \%data; } sub inflate_resultset { my $rs = shift; return [ map { inflate_row($_) } $rs->all ]; } sub inflate_dbic { my ( $c, $obj ) = @_; if ( !Scalar::Util::blessed($obj) ) { re
