DBIx::Class + Catalyst::View::JSON - ヒルズで働く@robarioの技ログInflateColumnを使っているときに問題があったため、修正版を新しいエントリに起こしました。 修正版：DBIx::Class ＋ Catalyst::View::JSON（２） - ヒルズで働く@robarioの技ログ 昔書いたメモが出てきたので転載。 DBIC::ResultSet#findやDBIC::ResultSet#searchしたものをそのままJSONにしたいじゃないですか。 でもCatalyst::View::JSONにそのまま渡すとCatalystが落ちるんですよ。 なので適当に展開してくれるサブルーチンを作って使っています。 Catalyst::View::JSON以外でも使うので、アプリケーションクラスに置いています。 ### lib/MyApp.pm sub expand_dbic { my ( $c, $obj ) = @_; if ( !Scalar::U
