#!/usr/local/bin/perl -w use strict; use warnings; use utf8; use JSON; my $obj = new Target('hounobouno'); # 変換対象インスタンス生成 my $json = new JSON; # JSONインスタンス生成 $json->convert_blessed; # blessedObjectが渡されたらTO_JSONを呼ぶように設定 my $json_text = $json->encode($obj); # 変換 # こう書くことも可能と #my $json_text = $json->allow_blessed->convert_blessed->encode( $obj ); print $json_text; exit; # 変換対象obj package Target; use