<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:16px"><div id="yui_3_16_0_1_1429490174348_5950" dir="ltr"><span>Reini,</span></div><div id="yui_3_16_0_1_1429490174348_5972" dir="ltr"><span id="yui_3_16_0_1_1429490174348_5971">I added the TO_JSON_WITH_TYPE API to my JSON fork on Github. Let me know what you think. I like this API much better than the TO_JSON API. It supports BOOLEAN out of the box as well. It's just a better all around API. I coded it so if the object has both TO_JSON and TO_JSON_WITH_TYPE the "with type" method will be selected first so we can have backwards compatibility too.</span></div><div id="yui_3_16_0_1_1429490174348_6101" dir="ltr"><span id="yui_3_16_0_1_1429490174348_6138">Thanks,</span></div><div id="yui_3_16_0_1_1429490174348_5970" dir="ltr"><span id="yui_3_16_0_1_1429490174348_5991">Mike</span></div><div id="yui_3_16_0_1_1429490174348_5969" dir="ltr"><span></span> </div><div id="yui_3_16_0_1_1429490174348_5968" dir="ltr"><span id="yui_3_16_0_1_1429490174348_5967"><a id="yui_3_16_0_1_1429490174348_5966" href="https://github.com/makamaka/JSON/compare/master...mrdvt92:master">https://github.com/makamaka/JSON/compare/master...mrdvt92:master</a></span></div><div id="yui_3_16_0_1_1429490174348_6048"> </div><div id="yui_3_16_0_1_1429490174348_6046">perl -e '<br>use strict;<br>use warnings;<br>use blib;<br>BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }<br>use JSON;<br>use Data::Dumper qw{Dumper};</div><div id="yui_3_16_0_1_1429490174348_6047">use Hash::Ordered qw{};<br>sub Hash::Ordered::TO_JSON_WITH_TYPE {HASH=>[shift->as_list]};<br>my $oh=Hash::Ordered->new(a => 1, b=>2, c=>3, d=>4, e=>5);<br>#print Dumper($oh);<br>#print join(",", @{$oh->TO_JSON_WITH_TYPE()}), "\n";</div><div id="yui_3_16_0_1_1429490174348_6057">my $coder = JSON->new->allow_blessed->convert_blessed;<br>print $coder->encode({myhash=>$oh}), "\n";<br>'</div><div id="yui_3_16_0_1_1429490174348_6059"> </div><div id="yui_3_16_0_1_1429490174348_6060">{"myhash":{"a":1,"b":2,"c":3,"d":4,"e":5}}<br><br><br></div> </div></body></html>