end0tknr's kipple - 新web写経開発

http://d.hatena.ne.jp/end0tknr/ から移転しました

Data::Structure::Util::unbless()を使ってblessを解除

encountered object 'Sample::ClassObj=HASH(0xa679b58)',
  but neither allow_blessed nor convert_blessed settings are enabled at
  /usr/local/lib/perl5/site_perl/5.10.1/JSON.pm line 154.\n

と、JSON.pmに怒られて、「perlのオブジェクトのblessって解除できないかなぁ」と軽くcpanを探してみたら、あっさり見つかりました。

http://search.cpan.org/perldoc?Data::Structure::Util

unbless関数の実体は xs みたいです。