どんぞこ日誌

* [Perl][メモ] 再度JSON周り

　前回、XSにバグがあるかなあと思って作者のMarcさんとやりとりしましたが、結局、問題ないということを確認しました。私の早とちりでした。すいません。UTF8フラグが立っても影響でないですね。
　　XSとPPの動作の違いはPP側に問題があったためで、最新バージョンでは修正してあります。自分の把握している限りでは完全にXSと同じ出力になっているはずです（エラーメッセージも一部を除いて一緒）。

　　あと、JSON::XS::VersionOneAndTwoというのが出たようなので、ちょっと余計な話を。
　　JSON::XSはメジャーバージョンアップの際、エクスポートされる関数名がto_json, from_jsonからencode_json, decode_jsonに変わりました。この関数はJSON::XS->new->utf8->encode/decode相当（実際はそれより高速）なのですが、utf8以外のオプションを設定できません。なので、旧objToJsonのようにJSON側でオプションを渡せる関数として当初はen/decode_jsonをあてようとしたのですが、そちらの名前の方がutf8がらみであることが明確（decode, encode）になるので、名前を変更しよう、ということになりました。その代わりに、JSON側はto_json, from_jsonでオプションを設定できるようになった次第。

* [Perl][メモ] use JSON -convert_blessed_universally

　　JSON 1.xの$JSON::CnovBlessedの代わりにas_nonblessedオプションがあるのですが、バックエンドがXSの場合はuse JSON -support_pp_byしなければならないので嬉しくない代物です。メソッド名も気に入らない（できればconvert_blessedがよい）。
　　ところで実際のconvert_blessedオプションは、encodeに渡したblessされたオブジェクトがTO_JSONメソッドを持っているとそのメソッドを呼び出してくれます。なので、下記のコードのようにUNIVERSAL::TO_JSONを定義すればas_nonblessedの代わりになるなあと。バージョン2.07からuse JSON -convert_blessed_universallyでセットされます。XSの作者がconvert_blessedの動作は将来変更するかもといっているので、これも実験的な機能になります……

 *UNIVERSAL::TO_JSON = sub {
   my $b_obj = B::svref_2object( $_[0] );
   return    $b_obj->isa('B::HV') ? { %{ $_[0] } }
           : $b_obj->isa('B::AV') ? [ @{ $_[0] } ]
           : undef
           ;
 }