UNIVERSAL::to_json なんてのをこさえたのですが、DIS られる悪寒をひしひしと感じながら、CPAN にうpってみたりしました。UNIVERSAL::to_yaml インスパイヤ。つか、autobox かっけ! use UNIVERSAL::to_json; my $obj = Foo->new; print $obj->to_json; { use autobox; # activate autobox print 'scalar value'->to_json; #=> "scalar value" print [qw(list items)]->to_json; #=> ["list","items"] print {key => 'value'}->to_json; #=> {"key":"value"} no autobox; # inactivate autob

