projects / scpubgit/stemmatology.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw
nytprof run results of /variantgraph/<ID> and /relation/<ID>/relationships
[scpubgit/stemmatology.git] / stemmaweb / nytprof-runs / relation-uuid-relationships / (eval 459)[JSON-pm-268]-682-line.html
diff --git a/stemmaweb/nytprof-runs/relation-uuid-relationships/(eval 459)[JSON-pm-268]-682-line.html b/stemmaweb/nytprof-runs/relation-uuid-relationships/(eval 459)[JSON-pm-268]-682-line.html
new file mode 100644 (file)
index 0000000..398ec0b
--- /dev/null
+++ b/stemmaweb/nytprof-runs/relation-uuid-relationships/(eval 459)[JSON-pm-268]-682-line.html
@@ -0,0 +1,2080 @@
+    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+    <html xmlns="http://www.w3.org/1999/xhtml">
+<!--
+This file was generated by Devel::NYTProf version 4.06
+-->
+<head>
+    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
+    <meta http-equiv="Content-Language" content="en-us" />
+    <title>Profile of (eval 459)[JSON.pm:268]</title>
+<link rel="stylesheet" type="text/css" href="style.css" />
+    <script type="text/javascript" src="js/jquery-min.js"></script> 
+
+    <script type="text/javascript" src="js/jquery-tablesorter-min.js"></script> 
+    <link rel="stylesheet" type="text/css" href="js/style-tablesorter.css" />
+    <script type="text/javascript">
+    // when a column is first clicked on to sort it, use descending order
+    // XXX doesn't seem to work (and not just because the tablesorter formatSortingOrder() is broken)
+    $.tablesorter.defaults.sortInitialOrder = "desc";
+    // add parser through the tablesorter addParser method 
+    $.tablesorter.addParser({
+        id: 'fmt_time',   // name of this parser
+        is: function(s) { 
+            return false; // return false so this parser is not auto detected 
+        }, 
+        format: function(orig) { // format data for normalization 
+            // console.log(orig);
+            val = orig.replace(/ns/,'');
+            if (val != orig) { return val / (1000*1000*1000); } 
+            val = orig.replace(/µs/,''); /* XXX use &micro; ? */
+            if (val != orig) { return val / (1000*1000); } 
+            var val = orig.replace(/ms/,'');
+            if (val != orig) { return val / (1000); }
+            var val = orig.replace(/s/,'');
+            if (val != orig) { return val; }
+            if (orig == '0') { return orig; } 
+            console.log('no match for fmt_time of '.concat(orig));
+            return orig;
+        },
+        type: 'numeric' // set type, either numeric or text 
+    }); 
+    </script> 
+</head>
+
+<body > 
+<div class="header" style="position: relative; overflow-x: hidden; overflow-y: hidden; z-index: 0; ">
+<div class="header_back">
+            <a href="index.html">&larr; Index</a>
+        </div>
+<div class="headerForeground" style="float: left">
+    <span class="siteTitle">NYTProf Performance Profile</span>
+    <span class="siteSubtitle">&emsp;&emsp;<br />
+            For script/nytprof.pl
+        </span>
+</div>
+<div class="headerForeground" style="float: right; text-align: right">
+    <span class="siteTitle">&nbsp;</span>
+    <span class="siteSubtitle">Run on Thu May 31 16:49:15 2012<br />Reported on Thu May 31 16:54:48 2012</span>
+</div>
+<div style="position: absolute; left: 0px; top: 0%; width: 100%; height: 101%; z-index: -1; background-color: rgb(17, 136, 255); "></div>
+<div style="position: absolute; left: 0px; top: 2%; width: 100%; height: 99%; z-index: -1; background-color: rgb(16, 134, 253); "></div>
+<div style="position: absolute; left: 0px; top: 4%; width: 100%; height: 97%; z-index: -1; background-color: rgb(16, 133, 252); "></div>
+<div style="position: absolute; left: 0px; top: 6%; width: 100%; height: 95%; z-index: -1; background-color: rgb(15, 131, 250); "></div>
+<div style="position: absolute; left: 0px; top: 8%; width: 100%; height: 93%; z-index: -1; background-color: rgb(15, 130, 249); "></div>
+<div style="position: absolute; left: 0px; top: 10%; width: 100%; height: 91%; z-index: -1; background-color: rgb(15, 129, 248); "></div>
+<div style="position: absolute; left: 0px; top: 12%; width: 100%; height: 89%; z-index: -1; background-color: rgb(14, 127, 246); "></div>
+<div style="position: absolute; left: 0px; top: 14%; width: 100%; height: 87%; z-index: -1; background-color: rgb(14, 126, 245); "></div>
+<div style="position: absolute; left: 0px; top: 16%; width: 100%; height: 85%; z-index: -1; background-color: rgb(14, 125, 244); "></div>
+<div style="position: absolute; left: 0px; top: 18%; width: 100%; height: 83%; z-index: -1; background-color: rgb(13, 123, 242); "></div>
+<div style="position: absolute; left: 0px; top: 20%; width: 100%; height: 81%; z-index: -1; background-color: rgb(13, 122, 241); "></div>
+<div style="position: absolute; left: 0px; top: 22%; width: 100%; height: 79%; z-index: -1; background-color: rgb(13, 121, 240); "></div>
+<div style="position: absolute; left: 0px; top: 24%; width: 100%; height: 77%; z-index: -1; background-color: rgb(12, 119, 238); "></div>
+<div style="position: absolute; left: 0px; top: 26%; width: 100%; height: 75%; z-index: -1; background-color: rgb(12, 118, 237); "></div>
+<div style="position: absolute; left: 0px; top: 28%; width: 100%; height: 73%; z-index: -1; background-color: rgb(12, 116, 235); "></div>
+<div style="position: absolute; left: 0px; top: 30%; width: 100%; height: 71%; z-index: -1; background-color: rgb(11, 115, 234); "></div>
+<div style="position: absolute; left: 0px; top: 32%; width: 100%; height: 69%; z-index: -1; background-color: rgb(11, 114, 233); "></div>
+<div style="position: absolute; left: 0px; top: 34%; width: 100%; height: 67%; z-index: -1; background-color: rgb(11, 112, 231); "></div>
+<div style="position: absolute; left: 0px; top: 36%; width: 100%; height: 65%; z-index: -1; background-color: rgb(10, 111, 230); "></div>
+<div style="position: absolute; left: 0px; top: 38%; width: 100%; height: 63%; z-index: -1; background-color: rgb(10, 110, 229); "></div>
+<div style="position: absolute; left: 0px; top: 40%; width: 100%; height: 61%; z-index: -1; background-color: rgb(10, 108, 227); "></div>
+<div style="position: absolute; left: 0px; top: 42%; width: 100%; height: 59%; z-index: -1; background-color: rgb(9, 107, 226); "></div>
+<div style="position: absolute; left: 0px; top: 44%; width: 100%; height: 57%; z-index: -1; background-color: rgb(9, 106, 225); "></div>
+<div style="position: absolute; left: 0px; top: 46%; width: 100%; height: 55%; z-index: -1; background-color: rgb(9, 104, 223); "></div>
+<div style="position: absolute; left: 0px; top: 48%; width: 100%; height: 53%; z-index: -1; background-color: rgb(8, 103, 222); "></div>
+<div style="position: absolute; left: 0px; top: 50%; width: 100%; height: 51%; z-index: -1; background-color: rgb(8, 102, 221); "></div>
+<div style="position: absolute; left: 0px; top: 52%; width: 100%; height: 49%; z-index: -1; background-color: rgb(8, 100, 219); "></div>
+<div style="position: absolute; left: 0px; top: 54%; width: 100%; height: 47%; z-index: -1; background-color: rgb(7, 99, 218); "></div>
+<div style="position: absolute; left: 0px; top: 56%; width: 100%; height: 45%; z-index: -1; background-color: rgb(7, 97, 216); "></div>
+<div style="position: absolute; left: 0px; top: 58%; width: 100%; height: 43%; z-index: -1; background-color: rgb(7, 96, 215); "></div>
+<div style="position: absolute; left: 0px; top: 60%; width: 100%; height: 41%; z-index: -1; background-color: rgb(6, 95, 214); "></div>
+<div style="position: absolute; left: 0px; top: 62%; width: 100%; height: 39%; z-index: -1; background-color: rgb(6, 93, 212); "></div>
+<div style="position: absolute; left: 0px; top: 64%; width: 100%; height: 37%; z-index: -1; background-color: rgb(6, 92, 211); "></div>
+<div style="position: absolute; left: 0px; top: 66%; width: 100%; height: 35%; z-index: -1; background-color: rgb(5, 91, 210); "></div>
+<div style="position: absolute; left: 0px; top: 68%; width: 100%; height: 33%; z-index: -1; background-color: rgb(5, 89, 208); "></div>
+<div style="position: absolute; left: 0px; top: 70%; width: 100%; height: 31%; z-index: -1; background-color: rgb(5, 88, 207); "></div>
+<div style="position: absolute; left: 0px; top: 72%; width: 100%; height: 29%; z-index: -1; background-color: rgb(4, 87, 206); "></div>
+<div style="position: absolute; left: 0px; top: 74%; width: 100%; height: 27%; z-index: -1; background-color: rgb(4, 85, 204); "></div>
+<div style="position: absolute; left: 0px; top: 76%; width: 100%; height: 25%; z-index: -1; background-color: rgb(4, 84, 203); "></div>
+<div style="position: absolute; left: 0px; top: 78%; width: 100%; height: 23%; z-index: -1; background-color: rgb(3, 82, 201); "></div>
+<div style="position: absolute; left: 0px; top: 80%; width: 100%; height: 21%; z-index: -1; background-color: rgb(3, 81, 200); "></div>
+<div style="position: absolute; left: 0px; top: 82%; width: 100%; height: 19%; z-index: -1; background-color: rgb(3, 80, 199); "></div>
+<div style="position: absolute; left: 0px; top: 84%; width: 100%; height: 17%; z-index: -1; background-color: rgb(2, 78, 197); "></div>
+<div style="position: absolute; left: 0px; top: 86%; width: 100%; height: 15%; z-index: -1; background-color: rgb(2, 77, 196); "></div>
+<div style="position: absolute; left: 0px; top: 88%; width: 100%; height: 13%; z-index: -1; background-color: rgb(2, 76, 195); "></div>
+<div style="position: absolute; left: 0px; top: 90%; width: 100%; height: 11%; z-index: -1; background-color: rgb(1, 74, 193); "></div>
+<div style="position: absolute; left: 0px; top: 92%; width: 100%; height: 9%; z-index: -1; background-color: rgb(1, 73, 192); "></div>
+<div style="position: absolute; left: 0px; top: 94%; width: 100%; height: 7%; z-index: -1; background-color: rgb(1, 72, 191); "></div>
+<div style="position: absolute; left: 0px; top: 96%; width: 100%; height: 5%; z-index: -1; background-color: rgb(0, 70, 189); "></div>
+<div style="position: absolute; left: 0px; top: 98%; width: 100%; height: 3%; z-index: -1; background-color: rgb(0, 69, 188); "></div>
+<div style="position: absolute; left: 0px; top: 100%; width: 100%; height: 1%; z-index: -1; background-color: rgb(0, 68, 187); "></div>
+</div>
+
+<div class="body_content"><br />
+<table class="file_summary"><tr><td class="h">Filename</td><td align="left">(eval 459)[/Users/edenc/perl5/lib/perl5/JSON.pm:268]</td></tr>
+<tr><td class="h">Statements</td><td align="left">Executed 2441 statements in 22.2ms</td></tr>
+<tr><td class="h">Eval Invoked At</td><td align="left"><a href="JSON-pm-674-line.html#268">/Users/edenc/perl5/lib/perl5/JSON.pm line 268</a></td></tr></table>
+        
+        <table id="subs_table" border="1" cellpadding="0" class="tablesorter">
+        <caption>Subroutines</caption>
+        <thead>
+        <tr>
+        <th>Calls</th>
+        <th><span title="Number of Places sub is called from">P</span></th>
+        <th><span title="Number of Files sub is called from">F</span></th>
+        <th>Exclusive<br />Time</th>
+        <th>Inclusive<br />Time</th>
+        <th>Subroutine</th>
+        </tr>
+        </thead>
+    <tbody>
+<tr><td class="c0">1164</td><td class="c1">2</td><td class="c1">2</td><td class="c0"><span title="0.0%">4.31ms</span></td><td class="c0"><span title="0.0%">20.4ms</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::Supportable::::_encode</span>JSON::Backend::XS::Supportable::<a href="(eval 459)[JSON-pm-268]-682-line.html#146">_encode</a></span></td></tr>
+<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c0"><span title="0.0%">92&micro;s</span></td><td class="c0"><span title="0.0%">151&micro;s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::::support_by_pp</span>             JSON::Backend::XS::<a href="(eval 459)[JSON-pm-268]-682-line.html#38">support_by_pp</a></span></td></tr>
+<tr><td class="c0">6</td><td class="c3">1</td><td class="c3">1</td><td class="c0"><span title="0.0%">59&micro;s</span></td><td class="c1"><span title="0.0%">59&micro;s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::Supportable::::_make_unsupported_method</span>JSON::Backend::XS::Supportable::<a href="(eval 459)[JSON-pm-268]-682-line.html#95">_make_unsupported_method</a></span></td></tr>
+<tr><td class="c0">4</td><td class="c0">4</td><td class="c0">4</td><td class="c1"><span title="0.0%">52&micro;s</span></td><td class="c0"><span title="0.0%">84&micro;s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::::__ANON__[:63]</span>             JSON::Backend::XS::<a href="(eval 459)[JSON-pm-268]-682-line.html#60">__ANON__[:63]</a></span></td></tr>
+<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">26&micro;s</span></td><td class="c3"><span title="0.0%">26&micro;s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::::init</span>             JSON::Backend::XS::<a href="(eval 459)[JSON-pm-268]-682-line.html#27">init</a></span></td></tr>
+<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">25&micro;s</span></td><td class="c0"><span title="0.0%">93&micro;s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::::BEGIN@9</span>             JSON::Backend::XS::<a href="(eval 459)[JSON-pm-268]-682-line.html#9">BEGIN@9</a></span></td></tr>
+<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">11&micro;s</span></td><td class="c3"><span title="0.0%">41&micro;s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::::BEGIN@11</span>             JSON::Backend::XS::<a href="(eval 459)[JSON-pm-268]-682-line.html#11">BEGIN@11</a></span></td></tr>
+<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">10&micro;s</span></td><td class="c3"><span title="0.0%">24&micro;s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::Supportable::::BEGIN@99</span>JSON::Backend::XS::Supportable::<a href="(eval 459)[JSON-pm-268]-682-line.html#99">BEGIN@99</a></span></td></tr>
+<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">9&micro;s</span></td><td class="c3"><span title="0.0%">37&micro;s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::::BEGIN@18</span>             JSON::Backend::XS::<a href="(eval 459)[JSON-pm-268]-682-line.html#18">BEGIN@18</a></span></td></tr>
+<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">9&micro;s</span></td><td class="c3"><span title="0.0%">26&micro;s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::::BEGIN@29</span>             JSON::Backend::XS::<a href="(eval 459)[JSON-pm-268]-682-line.html#29">BEGIN@29</a></span></td></tr>
+<tr><td class="c3">1</td><td class="c3">1</td><td class="c3">1</td><td class="c3"><span title="0.0%">8&micro;s</span></td><td class="c3"><span title="0.0%">18&micro;s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::::BEGIN@42</span>             JSON::Backend::XS::<a href="(eval 459)[JSON-pm-268]-682-line.html#42">BEGIN@42</a></span></td></tr>
+<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::Supportable::::__ANON__[:110]</span>JSON::Backend::XS::Supportable::<a href="(eval 459)[JSON-pm-268]-682-line.html#101">__ANON__[:110]</a></span></td></tr>
+<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::Supportable::::__ANON__[:114]</span>JSON::Backend::XS::Supportable::<a href="(eval 459)[JSON-pm-268]-682-line.html#112">__ANON__[:114]</a></span></td></tr>
+<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::Supportable::::_decode</span>JSON::Backend::XS::Supportable::<a href="(eval 459)[JSON-pm-268]-682-line.html#156">_decode</a></span></td></tr>
+<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::Supportable::::_incr_parse</span>JSON::Backend::XS::Supportable::<a href="(eval 459)[JSON-pm-268]-682-line.html#171">_incr_parse</a></span></td></tr>
+<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::Supportable::::_set_for_pp</span>JSON::Backend::XS::Supportable::<a href="(eval 459)[JSON-pm-268]-682-line.html#119">_set_for_pp</a></span></td></tr>
+<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::Supportable::::decode_prefix</span>JSON::Backend::XS::Supportable::<a href="(eval 459)[JSON-pm-268]-682-line.html#166">decode_prefix</a></span></td></tr>
+<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::Supportable::::get_indent_length</span>JSON::Backend::XS::Supportable::<a href="(eval 459)[JSON-pm-268]-682-line.html#181">get_indent_length</a></span></td></tr>
+<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::Supportable::::indent_length</span>JSON::Backend::XS::Supportable::<a href="(eval 459)[JSON-pm-268]-682-line.html#186">indent_length</a></span></td></tr>
+<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::::__ANON__[:32]</span>             JSON::Backend::XS::<a href="(eval 459)[JSON-pm-268]-682-line.html#32">__ANON__[:32]</a></span></td></tr>
+<tr><td class="c3">0</td><td class="c3">0</td><td class="c3">0</td><td class="c3"><span title="0.0%">0s</span></td><td class="c3"><span title="0.0%">0s</span></td><td class="sub_name"><span style="display: none;">JSON::Backend::XS::::__ANON__[:33]</span>             JSON::Backend::XS::<a href="(eval 459)[JSON-pm-268]-682-line.html#33">__ANON__[:33]</a></span></td></tr>
+</tbody></table>
+                Call graph for these subroutines as a
+                <a href="http://en.wikipedia.org/wiki/Graphviz">Graphviz</a>
+                <a href="(eval 459)[-Users-edenc-perl5-lib-perl5-JSON-pm-268].dot">dot language file</a>.
+            
+      <table border="1" cellpadding="0">
+      <thead>
+      <tr><th>Line</th>
+      <th><span title="Number of statements executed">State<br />ments</span></th>
+      <th><span title="Time spend executing statements on the line,
+        excluding time spent executing statements in any called subroutines">Time<br />on line</span></th>
+      <th><span title="Number of subroutines calls">Calls</span></th>
+      <th><span title="Time spent in subroutines called (inclusive)">Time<br />in subs</span></th>
+      <th class="left_indent_header">Code</th>
+      </tr>
+
+      </thead>
+      <tbody>
+    <tr><td class="h"><a name="1"></a>1</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="2"></a>2</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="3"></a>3</td><td></td><td></td><td></td><td></td><td class="s">#</td></tr>
+<tr><td class="h"><a name="4"></a>4</td><td></td><td></td><td></td><td></td><td class="s"># Helper classes for Backend Module (XS)</td></tr>
+<tr><td class="h"><a name="5"></a>5</td><td></td><td></td><td></td><td></td><td class="s">#</td></tr>
+<tr><td class="h"><a name="6"></a>6</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="7"></a>7</td><td></td><td></td><td></td><td></td><td class="s">package JSON::Backend::XS;</td></tr>
+<tr><td class="h"><a name="8"></a>8</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="9"></a>9</td><td class="c1">2</td><td class="c0"><span title="Avg 22&micro;s">44&micro;s</span></td><td class="c3">2</td><td class="c0">162&micro;s</td><td class="s"><div class="calls"><div class="calls_in"># spent 93&micro;s (25+68) within JSON::Backend::XS::BEGIN@9 which was called:
+#    once (25&micro;s+68&micro;s) by JSON::_load_xs at <a href="(eval 459)[JSON-pm-268]-682-line.html#9">line 9</a></div></div>use constant INDENT_LENGTH_FLAG =&gt; 15 &lt;&lt; 12;<div class="calls"><div class="calls_out"># spent    93&micro;s making 1 call to <a href="(eval 459)[JSON-pm-268]-682-line.html#9">JSON::Backend::XS::BEGIN@9</a>
+# spent    68&micro;s making 1 call to <a href="constant-pm-28-line.html#42">constant::import</a></div></div></td></tr>
+<tr><td class="h"><a name="10"></a>10</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="11"></a>11</td><td class="c3">1</td><td class="c3"><span title="Avg 400ns">400ns</span></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 41&micro;s (11+31) within JSON::Backend::XS::BEGIN@11 which was called:
+#    once (11&micro;s+31&micro;s) by JSON::_load_xs at <a href="(eval 459)[JSON-pm-268]-682-line.html#16">line 16</a></div></div>use constant UNSUPPORTED_ENCODE_FLAG =&gt; {</td></tr>
+<tr><td class="h"><a name="12"></a>12</td><td></td><td></td><td></td><td></td><td class="s">    ESCAPE_SLASH      =&gt; 0x00000010,</td></tr>
+<tr><td class="h"><a name="13"></a>13</td><td></td><td></td><td></td><td></td><td class="s">    ALLOW_BIGNUM      =&gt; 0x00000020,</td></tr>
+<tr><td class="h"><a name="14"></a>14</td><td></td><td></td><td></td><td></td><td class="s">    AS_NONBLESSED     =&gt; 0x00000040,</td></tr>
+<tr><td class="h"><a name="15"></a>15</td><td></td><td></td><td></td><td></td><td class="s">    EXPANDED          =&gt; 0x10000000, # for developer's</td></tr>
+<tr><td class="h"><a name="16"></a>16</td><td class="c3">1</td><td class="c0"><span title="Avg 35&micro;s">35&micro;s</span></td><td class="c3">2</td><td class="c2">72&micro;s</td><td class="s">};<div class="calls"><div class="calls_out"># spent    41&micro;s making 1 call to <a href="(eval 459)[JSON-pm-268]-682-line.html#11">JSON::Backend::XS::BEGIN@11</a>
+# spent    31&micro;s making 1 call to <a href="constant-pm-28-line.html#42">constant::import</a></div></div></td></tr>
+<tr><td class="h"><a name="17"></a>17</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="18"></a>18</td><td class="c3">1</td><td class="c3"><span title="Avg 400ns">400ns</span></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 37&micro;s (9+28) within JSON::Backend::XS::BEGIN@18 which was called:
+#    once (9&micro;s+28&micro;s) by JSON::_load_xs at <a href="(eval 459)[JSON-pm-268]-682-line.html#24">line 24</a></div></div>use constant UNSUPPORTED_DECODE_FLAG =&gt; {</td></tr>
+<tr><td class="h"><a name="19"></a>19</td><td></td><td></td><td></td><td></td><td class="s">    LOOSE             =&gt; 0x00000001,</td></tr>
+<tr><td class="h"><a name="20"></a>20</td><td></td><td></td><td></td><td></td><td class="s">    ALLOW_BIGNUM      =&gt; 0x00000002,</td></tr>
+<tr><td class="h"><a name="21"></a>21</td><td></td><td></td><td></td><td></td><td class="s">    ALLOW_BAREKEY     =&gt; 0x00000004,</td></tr>
+<tr><td class="h"><a name="22"></a>22</td><td></td><td></td><td></td><td></td><td class="s">    ALLOW_SINGLEQUOTE =&gt; 0x00000008,</td></tr>
+<tr><td class="h"><a name="23"></a>23</td><td></td><td></td><td></td><td></td><td class="s">    EXPANDED          =&gt; 0x20000000, # for developer's</td></tr>
+<tr><td class="h"><a name="24"></a>24</td><td class="c3">1</td><td class="c0"><span title="Avg 46&micro;s">46&micro;s</span></td><td class="c3">2</td><td class="c3">65&micro;s</td><td class="s">};<div class="calls"><div class="calls_out"># spent    37&micro;s making 1 call to <a href="(eval 459)[JSON-pm-268]-682-line.html#18">JSON::Backend::XS::BEGIN@18</a>
+# spent    28&micro;s making 1 call to <a href="constant-pm-28-line.html#42">constant::import</a></div></div></td></tr>
+<tr><td class="h"><a name="25"></a>25</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="26"></a>26</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="27"></a>27</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 26&micro;s within JSON::Backend::XS::init which was called:
+#    once (26&micro;s+0s) by JSON::_load_xs at <a href="JSON-pm-674-line.html#269">line 269 of JSON.pm</a></div></div>sub init {</td></tr>
+<tr><td class="h"><a name="28"></a>28</td><td class="c3">1</td><td class="c3"><span title="Avg 2&micro;s">2&micro;s</span></td><td></td><td></td><td class="s">    local $^W;</td></tr>
+<tr><td class="h"><a name="29"></a>29</td><td class="c1">2</td><td class="c0"><span title="Avg 61&micro;s">123&micro;s</span></td><td class="c3">2</td><td class="c3">43&micro;s</td><td class="s"><div class="calls"><div class="calls_in"># spent 26&micro;s (9+17) within JSON::Backend::XS::BEGIN@29 which was called:
+#    once (9&micro;s+17&micro;s) by JSON::_load_xs at <a href="(eval 459)[JSON-pm-268]-682-line.html#29">line 29</a></div></div>    no strict qw(refs);<div class="calls"><div class="calls_out">    # spent    26&micro;s making 1 call to <a href="(eval 459)[JSON-pm-268]-682-line.html#29">JSON::Backend::XS::BEGIN@29</a>
+    # spent    17&micro;s making 1 call to <a href="strict-pm-3-line.html#39">strict::unimport</a></div></div></td></tr>
+<tr><td class="h"><a name="30"></a>30</td><td class="c3">1</td><td class="c3"><span title="Avg 5&micro;s">5&micro;s</span></td><td></td><td></td><td class="s">    *{&quot;JSON::decode_json&quot;} = \&amp;{&quot;JSON::XS::decode_json&quot;};</td></tr>
+<tr><td class="h"><a name="31"></a>31</td><td class="c3">1</td><td class="c3"><span title="Avg 2&micro;s">2&micro;s</span></td><td></td><td></td><td class="s">    *{&quot;JSON::encode_json&quot;} = \&amp;{&quot;JSON::XS::encode_json&quot;};</td></tr>
+<tr><td class="h"><a name="32"></a>32</td><td class="c3">1</td><td class="c3"><span title="Avg 5&micro;s">5&micro;s</span></td><td></td><td></td><td class="s">    *{&quot;JSON::XS::is_xs&quot;}  = sub { 1 };</td></tr>
+<tr><td class="h"><a name="33"></a>33</td><td class="c3">1</td><td class="c2"><span title="Avg 7&micro;s">7&micro;s</span></td><td></td><td></td><td class="s">    *{&quot;JSON::XS::is_pp&quot;}  = sub { 0 };</td></tr>
+<tr><td class="h"><a name="34"></a>34</td><td class="c3">1</td><td class="c1"><span title="Avg 9&micro;s">9&micro;s</span></td><td></td><td></td><td class="s">    return 1;</td></tr>
+<tr><td class="h"><a name="35"></a>35</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
+<tr><td class="h"><a name="36"></a>36</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="37"></a>37</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="38"></a>38</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 151&micro;s (92+59) within JSON::Backend::XS::support_by_pp which was called:
+#    once (92&micro;s+59&micro;s) by JSON::import at <a href="JSON-pm-674-line.html#84">line 84 of JSON.pm</a></div></div>sub support_by_pp {</td></tr>
+<tr><td class="h"><a name="39"></a>39</td><td class="c3">1</td><td class="c3"><span title="Avg 3&micro;s">3&micro;s</span></td><td></td><td></td><td class="s">    my ($class, @methods) = @_;</td></tr>
+<tr><td class="h"><a name="40"></a>40</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="41"></a>41</td><td class="c3">1</td><td class="c3"><span title="Avg 2&micro;s">2&micro;s</span></td><td></td><td></td><td class="s">    local $^W;</td></tr>
+<tr><td class="h"><a name="42"></a>42</td><td class="c1">2</td><td class="c0"><span title="Avg 131&micro;s">262&micro;s</span></td><td class="c3">2</td><td class="c3">29&micro;s</td><td class="s"><div class="calls"><div class="calls_in"># spent 18&micro;s (8+11) within JSON::Backend::XS::BEGIN@42 which was called:
+#    once (8&micro;s+11&micro;s) by JSON::_load_xs at <a href="(eval 459)[JSON-pm-268]-682-line.html#42">line 42</a></div></div>    no strict qw(refs);<div class="calls"><div class="calls_out">    # spent    18&micro;s making 1 call to <a href="(eval 459)[JSON-pm-268]-682-line.html#42">JSON::Backend::XS::BEGIN@42</a>
+    # spent    11&micro;s making 1 call to <a href="strict-pm-3-line.html#39">strict::unimport</a></div></div></td></tr>
+<tr><td class="h"><a name="43"></a>43</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="44"></a>44</td><td class="c3">1</td><td class="c3"><span title="Avg 1&micro;s">1&micro;s</span></td><td></td><td></td><td class="s">    my $JSON_XS_encode_orignal     = \&amp;JSON::XS::encode;</td></tr>
+<tr><td class="h"><a name="45"></a>45</td><td class="c3">1</td><td class="c3"><span title="Avg 600ns">600ns</span></td><td></td><td></td><td class="s">    my $JSON_XS_decode_orignal     = \&amp;JSON::XS::decode;</td></tr>
+<tr><td class="h"><a name="46"></a>46</td><td class="c3">1</td><td class="c3"><span title="Avg 1&micro;s">1&micro;s</span></td><td></td><td></td><td class="s">    my $JSON_XS_incr_parse_orignal = \&amp;JSON::XS::incr_parse;</td></tr>
+<tr><td class="h"><a name="47"></a>47</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="48"></a>48</td><td class="c3">1</td><td class="c3"><span title="Avg 2&micro;s">2&micro;s</span></td><td></td><td></td><td class="s">    *JSON::XS::decode     = \&amp;JSON::Backend::XS::Supportable::_decode;</td></tr>
+<tr><td class="h"><a name="49"></a>49</td><td class="c3">1</td><td class="c3"><span title="Avg 700ns">700ns</span></td><td></td><td></td><td class="s">    *JSON::XS::encode     = \&amp;JSON::Backend::XS::Supportable::_encode;</td></tr>
+<tr><td class="h"><a name="50"></a>50</td><td class="c3">1</td><td class="c3"><span title="Avg 1&micro;s">1&micro;s</span></td><td></td><td></td><td class="s">    *JSON::XS::incr_parse = \&amp;JSON::Backend::XS::Supportable::_incr_parse;</td></tr>
+<tr><td class="h"><a name="51"></a>51</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="52"></a>52</td><td class="c3">1</td><td class="c3"><span title="Avg 600ns">600ns</span></td><td></td><td></td><td class="s">    *{JSON::XS::_original_decode}     = $JSON_XS_decode_orignal;</td></tr>
+<tr><td class="h"><a name="53"></a>53</td><td class="c3">1</td><td class="c3"><span title="Avg 500ns">500ns</span></td><td></td><td></td><td class="s">    *{JSON::XS::_original_encode}     = $JSON_XS_encode_orignal;</td></tr>
+<tr><td class="h"><a name="54"></a>54</td><td class="c3">1</td><td class="c3"><span title="Avg 300ns">300ns</span></td><td></td><td></td><td class="s">    *{JSON::XS::_original_incr_parse} = $JSON_XS_incr_parse_orignal;</td></tr>
+<tr><td class="h"><a name="55"></a>55</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="56"></a>56</td><td class="c3">1</td><td class="c1"><span title="Avg 8&micro;s">8&micro;s</span></td><td></td><td></td><td class="s">    push @JSON::Backend::XS::Supportable::ISA, 'JSON';</td></tr>
+<tr><td class="h"><a name="57"></a>57</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="58"></a>58</td><td class="c3">1</td><td class="c3"><span title="Avg 600ns">600ns</span></td><td></td><td></td><td class="s">    my $pkg = 'JSON::Backend::XS::Supportable';</td></tr>
+<tr><td class="h"><a name="59"></a>59</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="60"></a>60</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 84&micro;s (52+32) within JSON::Backend::XS::__ANON__[(eval 459)[/Users/edenc/perl5/lib/perl5/JSON.pm:268]:63] which was called 4 times, avg 21&micro;s/call:
+#    once (13&micro;s+19&micro;s) by JSON::Any::__ANON__[/Users/edenc/perl5/lib/perl5/JSON/Any.pm:108] at <a href="JSON-Any-pm-2146-line.html#98">line 98 of JSON/Any.pm</a>
+#    once (13&micro;s+6&micro;s) by KiokuDB::Backend::DBI::__ANON__[/Users/edenc/perl5/lib/perl5/KiokuDB/Backend/DBI.pm:81] at <a href="KiokuDB-Backend-DBI-pm-2149-line.html#81">line 81 of KiokuDB/Backend/DBI.pm</a>
+#    once (14&micro;s+5&micro;s) by KiokuDB::TypeMap::Entry::DBIC::Row::__ANON__[/Users/edenc/perl5/lib/perl5/KiokuDB/TypeMap/Entry/DBIC/Row.pm:20] at <a href="KiokuDB-TypeMap-Entry-DBIC-Row-pm-2211-line.html#20">line 20 of KiokuDB/TypeMap/Entry/DBIC/Row.pm</a>
+#    once (13&micro;s+3&micro;s) by KiokuDB::Backend::Serialize::JSON::_build_json at <a href="KiokuDB-Backend-Serialize-JSON-pm-2330-line.html#38">line 38 of KiokuDB/Backend/Serialize/JSON.pm</a></div></div>    *{JSON::new} = sub {</td></tr>
+<tr><td class="h"><a name="61"></a>61</td><td class="c0">8</td><td class="c0"><span title="Avg 7&micro;s">56&micro;s</span></td><td class="c0">4</td><td class="c3">32&micro;s</td><td class="s">        my $proto = new JSON::XS; $$proto = 0;<div class="calls"><div class="calls_out">        # spent    32&micro;s making 4 calls to <a href="JSON-XS-pm-679-line.html#JSON__XS__new">JSON::XS::new</a>, avg 8&micro;s/call</div></div></td></tr>
+<tr><td class="h"><a name="62"></a>62</td><td class="c0">4</td><td class="c0"><span title="Avg 9&micro;s">34&micro;s</span></td><td></td><td></td><td class="s">        bless  $proto, $pkg;</td></tr>
+<tr><td class="h"><a name="63"></a>63</td><td class="c3">1</td><td class="c3"><span title="Avg 4&micro;s">4&micro;s</span></td><td></td><td></td><td class="s">    };</td></tr>
+<tr><td class="h"><a name="64"></a>64</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="65"></a>65</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="66"></a>66</td><td class="c3">1</td><td class="c3"><span title="Avg 1&micro;s">1&micro;s</span></td><td></td><td></td><td class="s">    for my $method (@methods) {</td></tr>
+<tr><td class="h"><a name="67"></a>67</td><td class="c0">8</td><td class="c3"><span title="Avg 475ns">4&micro;s</span></td><td></td><td></td><td class="s">        my $flag = uc($method);</td></tr>
+<tr><td class="h"><a name="68"></a>68</td><td class="c0">8</td><td class="c3"><span title="Avg 412ns">3&micro;s</span></td><td></td><td></td><td class="s">        my $type |= (UNSUPPORTED_ENCODE_FLAG-&gt;{$flag} || 0);</td></tr>
+<tr><td class="h"><a name="69"></a>69</td><td class="c0">8</td><td class="c3"><span title="Avg 337ns">3&micro;s</span></td><td></td><td></td><td class="s">           $type |= (UNSUPPORTED_DECODE_FLAG-&gt;{$flag} || 0);</td></tr>
+<tr><td class="h"><a name="70"></a>70</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="71"></a>71</td><td class="c0">8</td><td class="c3"><span title="Avg 88ns">700ns</span></td><td></td><td></td><td class="s">        next unless($type);</td></tr>
+<tr><td class="h"><a name="72"></a>72</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="73"></a>73</td><td class="c0">6</td><td class="c0"><span title="Avg 2&micro;s">13&micro;s</span></td><td class="c0">6</td><td class="c3">59&micro;s</td><td class="s">        $pkg-&gt;_make_unsupported_method($method =&gt; $type);<div class="calls"><div class="calls_out">        # spent    59&micro;s making 6 calls to <a href="(eval 459)[JSON-pm-268]-682-line.html#95">JSON::Backend::XS::Supportable::_make_unsupported_method</a>, avg 10&micro;s/call</div></div></td></tr>
+<tr><td class="h"><a name="74"></a>74</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
+<tr><td class="h"><a name="75"></a>75</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="76"></a>76</td><td class="c3">1</td><td class="c0"><span title="Avg 12&micro;s">12&micro;s</span></td><td></td><td></td><td class="s">    push @{&quot;JSON::XS::Boolean::ISA&quot;}, qw(JSON::PP::Boolean);</td></tr>
+<tr><td class="h"><a name="77"></a>77</td><td class="c3">1</td><td class="c0"><span title="Avg 12&micro;s">12&micro;s</span></td><td></td><td></td><td class="s">    push @{&quot;JSON::PP::Boolean::ISA&quot;}, qw(JSON::Boolean);</td></tr>
+<tr><td class="h"><a name="78"></a>78</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="79"></a>79</td><td class="c3">1</td><td class="c3"><span title="Avg 300ns">300ns</span></td><td></td><td></td><td class="s">    $JSON::DEBUG and Carp::carp(&quot;set -support_by_pp mode.&quot;);</td></tr>
+<tr><td class="h"><a name="80"></a>80</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="81"></a>81</td><td class="c3">1</td><td class="c2"><span title="Avg 6&micro;s">6&micro;s</span></td><td></td><td></td><td class="s">    return 1;</td></tr>
+<tr><td class="h"><a name="82"></a>82</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
+<tr><td class="h"><a name="83"></a>83</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="- -"></a>- -</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="87"></a>87</td><td></td><td></td><td></td><td></td><td class="s">#</td></tr>
+<tr><td class="h"><a name="88"></a>88</td><td></td><td></td><td></td><td></td><td class="s"># Helper classes for XS</td></tr>
+<tr><td class="h"><a name="89"></a>89</td><td></td><td></td><td></td><td></td><td class="s">#</td></tr>
+<tr><td class="h"><a name="90"></a>90</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="91"></a>91</td><td></td><td></td><td></td><td></td><td class="s">package JSON::Backend::XS::Supportable;</td></tr>
+<tr><td class="h"><a name="92"></a>92</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="93"></a>93</td><td class="c3">1</td><td class="c3"><span title="Avg 2&micro;s">2&micro;s</span></td><td></td><td></td><td class="s">$Carp::Internal{'JSON::Backend::XS::Supportable'} = 1;</td></tr>
+<tr><td class="h"><a name="94"></a>94</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="95"></a>95</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 59&micro;s within JSON::Backend::XS::Supportable::_make_unsupported_method which was called 6 times, avg 10&micro;s/call:
+# 6 times (59&micro;s+0s) by JSON::Backend::XS::support_by_pp at <a href="(eval 459)[JSON-pm-268]-682-line.html#73">line 73</a>, avg 10&micro;s/call</div></div>sub _make_unsupported_method {</td></tr>
+<tr><td class="h"><a name="96"></a>96</td><td class="c0">6</td><td class="c3"><span title="Avg 533ns">3&micro;s</span></td><td></td><td></td><td class="s">    my ($pkg, $method, $type) = @_;</td></tr>
+<tr><td class="h"><a name="97"></a>97</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="98"></a>98</td><td class="c0">6</td><td class="c3"><span title="Avg 733ns">4&micro;s</span></td><td></td><td></td><td class="s">    local $^W;</td></tr>
+<tr><td class="h"><a name="99"></a>99</td><td class="c1">2</td><td class="c0"><span title="Avg 266&micro;s">532&micro;s</span></td><td class="c3">2</td><td class="c3">38&micro;s</td><td class="s"><div class="calls"><div class="calls_in"># spent 24&micro;s (10+14) within JSON::Backend::XS::Supportable::BEGIN@99 which was called:
+#    once (10&micro;s+14&micro;s) by JSON::_load_xs at <a href="(eval 459)[JSON-pm-268]-682-line.html#99">line 99</a></div></div>    no strict qw(refs);<div class="calls"><div class="calls_out">    # spent    24&micro;s making 1 call to <a href="(eval 459)[JSON-pm-268]-682-line.html#99">JSON::Backend::XS::Supportable::BEGIN@99</a>
+    # spent    14&micro;s making 1 call to <a href="strict-pm-3-line.html#39">strict::unimport</a></div></div></td></tr>
+<tr><td class="h"><a name="100"></a>100</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="101"></a>101</td><td></td><td></td><td></td><td></td><td class="s">    *{&quot;$pkg\::$method&quot;} = sub {</td></tr>
+<tr><td class="h"><a name="102"></a>102</td><td></td><td></td><td></td><td></td><td class="s">        local $^W;</td></tr>
+<tr><td class="h"><a name="103"></a>103</td><td></td><td></td><td></td><td></td><td class="s">        if (defined $_[1] ? $_[1] : 1) {</td></tr>
+<tr><td class="h"><a name="104"></a>104</td><td></td><td></td><td></td><td></td><td class="s">            ${$_[0]} |= $type;</td></tr>
+<tr><td class="h"><a name="105"></a>105</td><td></td><td></td><td></td><td></td><td class="s">        }</td></tr>
+<tr><td class="h"><a name="106"></a>106</td><td></td><td></td><td></td><td></td><td class="s">        else {</td></tr>
+<tr><td class="h"><a name="107"></a>107</td><td></td><td></td><td></td><td></td><td class="s">            ${$_[0]} &amp;= ~$type;</td></tr>
+<tr><td class="h"><a name="108"></a>108</td><td></td><td></td><td></td><td></td><td class="s">        }</td></tr>
+<tr><td class="h"><a name="109"></a>109</td><td></td><td></td><td></td><td></td><td class="s">        $_[0];</td></tr>
+<tr><td class="h"><a name="110"></a>110</td><td class="c0">6</td><td class="c0"><span title="Avg 4&micro;s">24&micro;s</span></td><td></td><td></td><td class="s">    };</td></tr>
+<tr><td class="h"><a name="111"></a>111</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="112"></a>112</td><td></td><td></td><td></td><td></td><td class="s">    *{&quot;$pkg\::get_$method&quot;} = sub {</td></tr>
+<tr><td class="h"><a name="113"></a>113</td><td></td><td></td><td></td><td></td><td class="s">        ${$_[0]} &amp; $type ? 1 : '';</td></tr>
+<tr><td class="h"><a name="114"></a>114</td><td class="c0">6</td><td class="c0"><span title="Avg 5&micro;s">33&micro;s</span></td><td></td><td></td><td class="s">    };</td></tr>
+<tr><td class="h"><a name="115"></a>115</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="116"></a>116</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
+<tr><td class="h"><a name="117"></a>117</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="118"></a>118</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="119"></a>119</td><td></td><td></td><td></td><td></td><td class="s">sub _set_for_pp {</td></tr>
+<tr><td class="h"><a name="120"></a>120</td><td></td><td></td><td></td><td></td><td class="s">    JSON::_load_pp( $_INSTALL_ONLY );</td></tr>
+<tr><td class="h"><a name="121"></a>121</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="122"></a>122</td><td></td><td></td><td></td><td></td><td class="s">    my $type  = shift;</td></tr>
+<tr><td class="h"><a name="123"></a>123</td><td></td><td></td><td></td><td></td><td class="s">    my $pp    = new JSON::PP;</td></tr>
+<tr><td class="h"><a name="124"></a>124</td><td></td><td></td><td></td><td></td><td class="s">    my $prop = $_[0]-&gt;property;</td></tr>
+<tr><td class="h"><a name="125"></a>125</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="126"></a>126</td><td></td><td></td><td></td><td></td><td class="s">    for my $name (keys %$prop) {</td></tr>
+<tr><td class="h"><a name="127"></a>127</td><td></td><td></td><td></td><td></td><td class="s">        $pp-&gt;$name( $prop-&gt;{$name} ? $prop-&gt;{$name} : 0 );</td></tr>
+<tr><td class="h"><a name="128"></a>128</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
+<tr><td class="h"><a name="129"></a>129</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="130"></a>130</td><td></td><td></td><td></td><td></td><td class="s">    my $unsupported = $type eq 'encode' ? JSON::Backend::XS::UNSUPPORTED_ENCODE_FLAG</td></tr>
+<tr><td class="h"><a name="131"></a>131</td><td></td><td></td><td></td><td></td><td class="s">                                        : JSON::Backend::XS::UNSUPPORTED_DECODE_FLAG;</td></tr>
+<tr><td class="h"><a name="132"></a>132</td><td></td><td></td><td></td><td></td><td class="s">    my $flags       = ${$_[0]} || 0;</td></tr>
+<tr><td class="h"><a name="133"></a>133</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="134"></a>134</td><td></td><td></td><td></td><td></td><td class="s">    for my $name (keys %$unsupported) {</td></tr>
+<tr><td class="h"><a name="135"></a>135</td><td></td><td></td><td></td><td></td><td class="s">        next if ($name eq 'EXPANDED'); # for developer's</td></tr>
+<tr><td class="h"><a name="136"></a>136</td><td></td><td></td><td></td><td></td><td class="s">        my $enable = ($flags &amp; $unsupported-&gt;{$name}) ? 1 : 0;</td></tr>
+<tr><td class="h"><a name="137"></a>137</td><td></td><td></td><td></td><td></td><td class="s">        my $method = lc $name;</td></tr>
+<tr><td class="h"><a name="138"></a>138</td><td></td><td></td><td></td><td></td><td class="s">        $pp-&gt;$method($enable);</td></tr>
+<tr><td class="h"><a name="139"></a>139</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
+<tr><td class="h"><a name="140"></a>140</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="141"></a>141</td><td></td><td></td><td></td><td></td><td class="s">    $pp-&gt;indent_length( $_[0]-&gt;get_indent_length );</td></tr>
+<tr><td class="h"><a name="142"></a>142</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="143"></a>143</td><td></td><td></td><td></td><td></td><td class="s">    return $pp;</td></tr>
+<tr><td class="h"><a name="144"></a>144</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
+<tr><td class="h"><a name="145"></a>145</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="146"></a>146</td><td></td><td></td><td></td><td></td><td class="s"><div class="calls"><div class="calls_in"># spent 20.4ms (4.31+16.0) within JSON::Backend::XS::Supportable::_encode which was called 1164 times, avg 17&micro;s/call:
+# 1163 times (4.31ms+15.9ms) by KiokuDB::Serializer::JSON::encode at <a href="Moose-Meta-Method-Delegation-pm-169-line.html#110">line 110 of Moose/Meta/Method/Delegation.pm</a>, avg 17&micro;s/call
+#       once (7&micro;s+98&micro;s) by JSON::Any::objToJson at <a href="JSON-Any-pm-2146-line.html#507">line 507 of JSON/Any.pm</a></div></div>sub _encode { # using with PP encod</td></tr>
+<tr><td class="h"><a name="147"></a>147</td><td class="c0">1164</td><td class="c0"><span title="Avg 2&micro;s">2.05ms</span></td><td></td><td></td><td class="s">    if (${$_[0]}) {</td></tr>
+<tr><td class="h"><a name="148"></a>148</td><td></td><td></td><td></td><td></td><td class="s">        _set_for_pp('encode' =&gt; @_)-&gt;encode($_[1]);</td></tr>
+<tr><td class="h"><a name="149"></a>149</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
+<tr><td class="h"><a name="150"></a>150</td><td></td><td></td><td></td><td></td><td class="s">    else {</td></tr>
+<tr><td class="h"><a name="151"></a>151</td><td class="c0">1164</td><td class="c0"><span title="Avg 16&micro;s">18.8ms</span></td><td class="c0">1164</td><td class="c0">16.0ms</td><td class="s">        $_[0]-&gt;_original_encode( $_[1] );<div class="calls"><div class="calls_out">        # spent  16.0ms making 1164 calls to <a href="JSON-XS-pm-679-line.html#JSON__XS__encode">JSON::XS::encode</a>, avg 14&micro;s/call</div></div></td></tr>
+<tr><td class="h"><a name="152"></a>152</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
+<tr><td class="h"><a name="153"></a>153</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
+<tr><td class="h"><a name="154"></a>154</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="155"></a>155</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="156"></a>156</td><td></td><td></td><td></td><td></td><td class="s">sub _decode { # if unsupported-flag is set, use PP</td></tr>
+<tr><td class="h"><a name="157"></a>157</td><td></td><td></td><td></td><td></td><td class="s">    if (${$_[0]}) {</td></tr>
+<tr><td class="h"><a name="158"></a>158</td><td></td><td></td><td></td><td></td><td class="s">        _set_for_pp('decode' =&gt; @_)-&gt;decode($_[1]);</td></tr>
+<tr><td class="h"><a name="159"></a>159</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
+<tr><td class="h"><a name="160"></a>160</td><td></td><td></td><td></td><td></td><td class="s">    else {</td></tr>
+<tr><td class="h"><a name="161"></a>161</td><td></td><td></td><td></td><td></td><td class="s">        $_[0]-&gt;_original_decode( $_[1] );</td></tr>
+<tr><td class="h"><a name="162"></a>162</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
+<tr><td class="h"><a name="163"></a>163</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
+<tr><td class="h"><a name="164"></a>164</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="165"></a>165</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="166"></a>166</td><td></td><td></td><td></td><td></td><td class="s">sub decode_prefix { # if unsupported-flag is set, use PP</td></tr>
+<tr><td class="h"><a name="167"></a>167</td><td></td><td></td><td></td><td></td><td class="s">    _set_for_pp('decode' =&gt; @_)-&gt;decode_prefix($_[1]);</td></tr>
+<tr><td class="h"><a name="168"></a>168</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
+<tr><td class="h"><a name="169"></a>169</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="170"></a>170</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="171"></a>171</td><td></td><td></td><td></td><td></td><td class="s">sub _incr_parse {</td></tr>
+<tr><td class="h"><a name="172"></a>172</td><td></td><td></td><td></td><td></td><td class="s">    if (${$_[0]}) {</td></tr>
+<tr><td class="h"><a name="173"></a>173</td><td></td><td></td><td></td><td></td><td class="s">        _set_for_pp('decode' =&gt; @_)-&gt;incr_parse($_[1]);</td></tr>
+<tr><td class="h"><a name="174"></a>174</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
+<tr><td class="h"><a name="175"></a>175</td><td></td><td></td><td></td><td></td><td class="s">    else {</td></tr>
+<tr><td class="h"><a name="176"></a>176</td><td></td><td></td><td></td><td></td><td class="s">        $_[0]-&gt;_original_incr_parse( $_[1] );</td></tr>
+<tr><td class="h"><a name="177"></a>177</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
+<tr><td class="h"><a name="178"></a>178</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
+<tr><td class="h"><a name="179"></a>179</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="180"></a>180</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="181"></a>181</td><td></td><td></td><td></td><td></td><td class="s">sub get_indent_length {</td></tr>
+<tr><td class="h"><a name="182"></a>182</td><td></td><td></td><td></td><td></td><td class="s">    ${$_[0]} &lt;&lt; 4 &gt;&gt; 16;</td></tr>
+<tr><td class="h"><a name="183"></a>183</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
+<tr><td class="h"><a name="184"></a>184</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="185"></a>185</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="186"></a>186</td><td></td><td></td><td></td><td></td><td class="s">sub indent_length {</td></tr>
+<tr><td class="h"><a name="187"></a>187</td><td></td><td></td><td></td><td></td><td class="s">    my $length = $_[1];</td></tr>
+<tr><td class="h"><a name="188"></a>188</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="189"></a>189</td><td></td><td></td><td></td><td></td><td class="s">    if (!defined $length or $length &gt; 15 or $length &lt; 0) {</td></tr>
+<tr><td class="h"><a name="190"></a>190</td><td></td><td></td><td></td><td></td><td class="s">        Carp::carp &quot;The acceptable range of indent_length() is 0 to 15.&quot;;</td></tr>
+<tr><td class="h"><a name="191"></a>191</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
+<tr><td class="h"><a name="192"></a>192</td><td></td><td></td><td></td><td></td><td class="s">    else {</td></tr>
+<tr><td class="h"><a name="193"></a>193</td><td></td><td></td><td></td><td></td><td class="s">        local $^W;</td></tr>
+<tr><td class="h"><a name="194"></a>194</td><td></td><td></td><td></td><td></td><td class="s">        $length &lt;&lt;= 12;</td></tr>
+<tr><td class="h"><a name="195"></a>195</td><td></td><td></td><td></td><td></td><td class="s">        ${$_[0]} &amp;= ~ JSON::Backend::XS::INDENT_LENGTH_FLAG;</td></tr>
+<tr><td class="h"><a name="196"></a>196</td><td></td><td></td><td></td><td></td><td class="s">        ${$_[0]} |= $length;</td></tr>
+<tr><td class="h"><a name="197"></a>197</td><td></td><td></td><td></td><td></td><td class="s">        *JSON::XS::encode = \&amp;JSON::Backend::XS::Supportable::_encode;</td></tr>
+<tr><td class="h"><a name="198"></a>198</td><td></td><td></td><td></td><td></td><td class="s">    }</td></tr>
+<tr><td class="h"><a name="199"></a>199</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="200"></a>200</td><td></td><td></td><td></td><td></td><td class="s">    $_[0];</td></tr>
+<tr><td class="h"><a name="201"></a>201</td><td></td><td></td><td></td><td></td><td class="s">}</td></tr>
+<tr><td class="h"><a name="202"></a>202</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="203"></a>203</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="204"></a>204</td><td class="c3">1</td><td class="c3"><span title="Avg 5&micro;s">5&micro;s</span></td><td></td><td></td><td class="s">1;</td></tr>
+<tr><td class="h"><a name="205"></a>205</td><td></td><td></td><td></td><td></td><td class="s">__END__</td></tr>
+<tr><td class="h"><a name="206"></a>206</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="207"></a>207</td><td></td><td></td><td></td><td></td><td class="s">=head1 NAME</td></tr>
+<tr><td class="h"><a name="208"></a>208</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="209"></a>209</td><td></td><td></td><td></td><td></td><td class="s">JSON - JSON (JavaScript Object Notation) encoder/decoder</td></tr>
+<tr><td class="h"><a name="210"></a>210</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="211"></a>211</td><td></td><td></td><td></td><td></td><td class="s">=head1 SYNOPSIS</td></tr>
+<tr><td class="h"><a name="212"></a>212</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="213"></a>213</td><td></td><td></td><td></td><td></td><td class="s"> use JSON; # imports encode_json, decode_json, to_json and from_json.</td></tr>
+<tr><td class="h"><a name="214"></a>214</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
+<tr><td class="h"><a name="215"></a>215</td><td></td><td></td><td></td><td></td><td class="s"> # simple and fast interfaces (expect/generate UTF-8)</td></tr>
+<tr><td class="h"><a name="216"></a>216</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
+<tr><td class="h"><a name="217"></a>217</td><td></td><td></td><td></td><td></td><td class="s"> $utf8_encoded_json_text = encode_json $perl_hash_or_arrayref;</td></tr>
+<tr><td class="h"><a name="218"></a>218</td><td></td><td></td><td></td><td></td><td class="s"> $perl_hash_or_arrayref  = decode_json $utf8_encoded_json_text;</td></tr>
+<tr><td class="h"><a name="219"></a>219</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
+<tr><td class="h"><a name="220"></a>220</td><td></td><td></td><td></td><td></td><td class="s"> # OO-interface</td></tr>
+<tr><td class="h"><a name="221"></a>221</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
+<tr><td class="h"><a name="222"></a>222</td><td></td><td></td><td></td><td></td><td class="s"> $json = JSON-&gt;new-&gt;allow_nonref;</td></tr>
+<tr><td class="h"><a name="223"></a>223</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
+<tr><td class="h"><a name="224"></a>224</td><td></td><td></td><td></td><td></td><td class="s"> $json_text   = $json-&gt;encode( $perl_scalar );</td></tr>
+<tr><td class="h"><a name="225"></a>225</td><td></td><td></td><td></td><td></td><td class="s"> $perl_scalar = $json-&gt;decode( $json_text );</td></tr>
+<tr><td class="h"><a name="226"></a>226</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
+<tr><td class="h"><a name="227"></a>227</td><td></td><td></td><td></td><td></td><td class="s"> $pretty_printed = $json-&gt;pretty-&gt;encode( $perl_scalar ); # pretty-printing</td></tr>
+<tr><td class="h"><a name="228"></a>228</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
+<tr><td class="h"><a name="229"></a>229</td><td></td><td></td><td></td><td></td><td class="s"> # If you want to use PP only support features, call with '-support_by_pp'</td></tr>
+<tr><td class="h"><a name="230"></a>230</td><td></td><td></td><td></td><td></td><td class="s"> # When XS unsupported feature is enable, using PP (de|en)code instead of XS ones.</td></tr>
+<tr><td class="h"><a name="231"></a>231</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
+<tr><td class="h"><a name="232"></a>232</td><td></td><td></td><td></td><td></td><td class="s"> use JSON -support_by_pp;</td></tr>
+<tr><td class="h"><a name="233"></a>233</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
+<tr><td class="h"><a name="234"></a>234</td><td></td><td></td><td></td><td></td><td class="s"> # option-acceptable interfaces (expect/generate UNICODE by default)</td></tr>
+<tr><td class="h"><a name="235"></a>235</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
+<tr><td class="h"><a name="236"></a>236</td><td></td><td></td><td></td><td></td><td class="s"> $json_text   = to_json( $perl_scalar, { ascii =&gt; 1, pretty =&gt; 1 } );</td></tr>
+<tr><td class="h"><a name="237"></a>237</td><td></td><td></td><td></td><td></td><td class="s"> $perl_scalar = from_json( $json_text, { utf8  =&gt; 1 } );</td></tr>
+<tr><td class="h"><a name="238"></a>238</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
+<tr><td class="h"><a name="239"></a>239</td><td></td><td></td><td></td><td></td><td class="s"> # Between (en|de)code_json and (to|from)_json, if you want to write</td></tr>
+<tr><td class="h"><a name="240"></a>240</td><td></td><td></td><td></td><td></td><td class="s"> # a code which communicates to an outer world (encoded in UTF-8),</td></tr>
+<tr><td class="h"><a name="241"></a>241</td><td></td><td></td><td></td><td></td><td class="s"> # recommend to use (en|de)code_json.</td></tr>
+<tr><td class="h"><a name="242"></a>242</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
+<tr><td class="h"><a name="243"></a>243</td><td></td><td></td><td></td><td></td><td class="s">=head1 VERSION</td></tr>
+<tr><td class="h"><a name="244"></a>244</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="245"></a>245</td><td></td><td></td><td></td><td></td><td class="s">    2.53</td></tr>
+<tr><td class="h"><a name="246"></a>246</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="247"></a>247</td><td></td><td></td><td></td><td></td><td class="s">This version is compatible with JSON::XS B&lt;2.27&gt; and later.</td></tr>
+<tr><td class="h"><a name="248"></a>248</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="249"></a>249</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="250"></a>250</td><td></td><td></td><td></td><td></td><td class="s">=head1 NOTE</td></tr>
+<tr><td class="h"><a name="251"></a>251</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="252"></a>252</td><td></td><td></td><td></td><td></td><td class="s">JSON::PP was inculded in C&lt;JSON&gt; distribution.</td></tr>
+<tr><td class="h"><a name="253"></a>253</td><td></td><td></td><td></td><td></td><td class="s">It comes to be a perl core module in Perl 5.14.</td></tr>
+<tr><td class="h"><a name="254"></a>254</td><td></td><td></td><td></td><td></td><td class="s">And L&lt;JSON::PP&gt; will be split away it.</td></tr>
+<tr><td class="h"><a name="255"></a>255</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="256"></a>256</td><td></td><td></td><td></td><td></td><td class="s">C&lt;JSON&gt; distribution will inculde yet another JSON::PP modules.</td></tr>
+<tr><td class="h"><a name="257"></a>257</td><td></td><td></td><td></td><td></td><td class="s">They are JSNO::backportPP and so on. JSON.pm should work as it did at all.</td></tr>
+<tr><td class="h"><a name="258"></a>258</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="259"></a>259</td><td></td><td></td><td></td><td></td><td class="s">=head1 DESCRIPTION</td></tr>
+<tr><td class="h"><a name="260"></a>260</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="261"></a>261</td><td></td><td></td><td></td><td></td><td class="s"> ************************** CAUTION ********************************</td></tr>
+<tr><td class="h"><a name="262"></a>262</td><td></td><td></td><td></td><td></td><td class="s"> * This is 'JSON module version 2' and there are many differences  *</td></tr>
+<tr><td class="h"><a name="263"></a>263</td><td></td><td></td><td></td><td></td><td class="s"> * to version 1.xx                                                 *</td></tr>
+<tr><td class="h"><a name="264"></a>264</td><td></td><td></td><td></td><td></td><td class="s"> * Please check your applications useing old version.              *</td></tr>
+<tr><td class="h"><a name="265"></a>265</td><td></td><td></td><td></td><td></td><td class="s"> *   See to 'INCOMPATIBLE CHANGES TO OLD VERSION'                  *</td></tr>
+<tr><td class="h"><a name="266"></a>266</td><td></td><td></td><td></td><td></td><td class="s"> *******************************************************************</td></tr>
+<tr><td class="h"><a name="267"></a>267</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="268"></a>268</td><td></td><td></td><td></td><td></td><td class="s">JSON (JavaScript Object Notation) is a simple data format.</td></tr>
+<tr><td class="h"><a name="269"></a>269</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;http://www.json.org/&gt; and C&lt;RFC4627&gt;(L&lt;http://www.ietf.org/rfc/rfc4627.txt&gt;).</td></tr>
+<tr><td class="h"><a name="270"></a>270</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="271"></a>271</td><td></td><td></td><td></td><td></td><td class="s">This module converts Perl data structures to JSON and vice versa using either</td></tr>
+<tr><td class="h"><a name="272"></a>272</td><td></td><td></td><td></td><td></td><td class="s">L&lt;JSON::XS&gt; or L&lt;JSON::PP&gt;.</td></tr>
+<tr><td class="h"><a name="273"></a>273</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="274"></a>274</td><td></td><td></td><td></td><td></td><td class="s">JSON::XS is the fastest and most proper JSON module on CPAN which must be</td></tr>
+<tr><td class="h"><a name="275"></a>275</td><td></td><td></td><td></td><td></td><td class="s">compiled and installed in your environment.</td></tr>
+<tr><td class="h"><a name="276"></a>276</td><td></td><td></td><td></td><td></td><td class="s">JSON::PP is a pure-Perl module which is bundled in this distribution and</td></tr>
+<tr><td class="h"><a name="277"></a>277</td><td></td><td></td><td></td><td></td><td class="s">has a strong compatibility to JSON::XS.</td></tr>
+<tr><td class="h"><a name="278"></a>278</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="279"></a>279</td><td></td><td></td><td></td><td></td><td class="s">This module try to use JSON::XS by default and fail to it, use JSON::PP instead.</td></tr>
+<tr><td class="h"><a name="280"></a>280</td><td></td><td></td><td></td><td></td><td class="s">So its features completely depend on JSON::XS or JSON::PP.</td></tr>
+<tr><td class="h"><a name="281"></a>281</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="282"></a>282</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;BACKEND MODULE DECISION&gt;.</td></tr>
+<tr><td class="h"><a name="283"></a>283</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="284"></a>284</td><td></td><td></td><td></td><td></td><td class="s">To distinguish the module name 'JSON' and the format type JSON,</td></tr>
+<tr><td class="h"><a name="285"></a>285</td><td></td><td></td><td></td><td></td><td class="s">the former is quoted by CE&lt;lt&gt;E&lt;gt&gt; (its results vary with your using media),</td></tr>
+<tr><td class="h"><a name="286"></a>286</td><td></td><td></td><td></td><td></td><td class="s">and the latter is left just as it is.</td></tr>
+<tr><td class="h"><a name="287"></a>287</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="288"></a>288</td><td></td><td></td><td></td><td></td><td class="s">Module name : C&lt;JSON&gt;</td></tr>
+<tr><td class="h"><a name="289"></a>289</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="290"></a>290</td><td></td><td></td><td></td><td></td><td class="s">Format type : JSON</td></tr>
+<tr><td class="h"><a name="291"></a>291</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="292"></a>292</td><td></td><td></td><td></td><td></td><td class="s">=head2 FEATURES</td></tr>
+<tr><td class="h"><a name="293"></a>293</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="294"></a>294</td><td></td><td></td><td></td><td></td><td class="s">=over</td></tr>
+<tr><td class="h"><a name="295"></a>295</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="296"></a>296</td><td></td><td></td><td></td><td></td><td class="s">=item * correct unicode handling</td></tr>
+<tr><td class="h"><a name="297"></a>297</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="298"></a>298</td><td></td><td></td><td></td><td></td><td class="s">This module (i.e. backend modules) knows how to handle Unicode, documents</td></tr>
+<tr><td class="h"><a name="299"></a>299</td><td></td><td></td><td></td><td></td><td class="s">how and when it does so, and even documents what &quot;correct&quot; means.</td></tr>
+<tr><td class="h"><a name="300"></a>300</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="301"></a>301</td><td></td><td></td><td></td><td></td><td class="s">Even though there are limitations, this feature is available since Perl version 5.6.</td></tr>
+<tr><td class="h"><a name="302"></a>302</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="303"></a>303</td><td></td><td></td><td></td><td></td><td class="s">JSON::XS requires Perl 5.8.2 (but works correctly in 5.8.8 or later), so in older versions</td></tr>
+<tr><td class="h"><a name="304"></a>304</td><td></td><td></td><td></td><td></td><td class="s">C&lt;JSON&gt; sholud call JSON::PP as the backend which can be used since Perl 5.005.</td></tr>
+<tr><td class="h"><a name="305"></a>305</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="306"></a>306</td><td></td><td></td><td></td><td></td><td class="s">With Perl 5.8.x JSON::PP works, but from 5.8.0 to 5.8.2, because of a Perl side problem,</td></tr>
+<tr><td class="h"><a name="307"></a>307</td><td></td><td></td><td></td><td></td><td class="s">JSON::PP works slower in the versions. And in 5.005, the Unicode handling is not available.</td></tr>
+<tr><td class="h"><a name="308"></a>308</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::PP/UNICODE HANDLING ON PERLS&gt; for more information.</td></tr>
+<tr><td class="h"><a name="309"></a>309</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="310"></a>310</td><td></td><td></td><td></td><td></td><td class="s">See also to L&lt;JSON::XS/A FEW NOTES ON UNICODE AND PERL&gt;</td></tr>
+<tr><td class="h"><a name="311"></a>311</td><td></td><td></td><td></td><td></td><td class="s">and L&lt;JSON::XS/ENCODING/CODESET_FLAG_NOTES&gt;.</td></tr>
+<tr><td class="h"><a name="312"></a>312</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="313"></a>313</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="314"></a>314</td><td></td><td></td><td></td><td></td><td class="s">=item * round-trip integrity</td></tr>
+<tr><td class="h"><a name="315"></a>315</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="316"></a>316</td><td></td><td></td><td></td><td></td><td class="s">When you serialise a perl data structure using only data types supported</td></tr>
+<tr><td class="h"><a name="317"></a>317</td><td></td><td></td><td></td><td></td><td class="s">by JSON and Perl, the deserialised data structure is identical on the Perl</td></tr>
+<tr><td class="h"><a name="318"></a>318</td><td></td><td></td><td></td><td></td><td class="s">level. (e.g. the string &quot;2.0&quot; doesn't suddenly become &quot;2&quot; just because</td></tr>
+<tr><td class="h"><a name="319"></a>319</td><td></td><td></td><td></td><td></td><td class="s">it looks like a number). There I&lt;are&gt; minor exceptions to this, read the</td></tr>
+<tr><td class="h"><a name="320"></a>320</td><td></td><td></td><td></td><td></td><td class="s">L&lt;/MAPPING&gt; section below to learn about those.</td></tr>
+<tr><td class="h"><a name="321"></a>321</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="322"></a>322</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="323"></a>323</td><td></td><td></td><td></td><td></td><td class="s">=item * strict checking of JSON correctness</td></tr>
+<tr><td class="h"><a name="324"></a>324</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="325"></a>325</td><td></td><td></td><td></td><td></td><td class="s">There is no guessing, no generating of illegal JSON texts by default,</td></tr>
+<tr><td class="h"><a name="326"></a>326</td><td></td><td></td><td></td><td></td><td class="s">and only JSON is accepted as input by default (the latter is a security</td></tr>
+<tr><td class="h"><a name="327"></a>327</td><td></td><td></td><td></td><td></td><td class="s">feature).</td></tr>
+<tr><td class="h"><a name="328"></a>328</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="329"></a>329</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::XS/FEATURES&gt; and L&lt;JSON::PP/FEATURES&gt;.</td></tr>
+<tr><td class="h"><a name="330"></a>330</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="331"></a>331</td><td></td><td></td><td></td><td></td><td class="s">=item * fast</td></tr>
+<tr><td class="h"><a name="332"></a>332</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="333"></a>333</td><td></td><td></td><td></td><td></td><td class="s">This module returns a JSON::XS object itself if available.</td></tr>
+<tr><td class="h"><a name="334"></a>334</td><td></td><td></td><td></td><td></td><td class="s">Compared to other JSON modules and other serialisers such as Storable,</td></tr>
+<tr><td class="h"><a name="335"></a>335</td><td></td><td></td><td></td><td></td><td class="s">JSON::XS usually compares favourably in terms of speed, too.</td></tr>
+<tr><td class="h"><a name="336"></a>336</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="337"></a>337</td><td></td><td></td><td></td><td></td><td class="s">If not available, C&lt;JSON&gt; returns a JSON::PP object instead of JSON::XS and</td></tr>
+<tr><td class="h"><a name="338"></a>338</td><td></td><td></td><td></td><td></td><td class="s">it is very slow as pure-Perl.</td></tr>
+<tr><td class="h"><a name="339"></a>339</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="340"></a>340</td><td></td><td></td><td></td><td></td><td class="s">=item * simple to use</td></tr>
+<tr><td class="h"><a name="341"></a>341</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="342"></a>342</td><td></td><td></td><td></td><td></td><td class="s">This module has both a simple functional interface as well as an</td></tr>
+<tr><td class="h"><a name="343"></a>343</td><td></td><td></td><td></td><td></td><td class="s">object oriented interface interface.</td></tr>
+<tr><td class="h"><a name="344"></a>344</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="345"></a>345</td><td></td><td></td><td></td><td></td><td class="s">=item * reasonably versatile output formats</td></tr>
+<tr><td class="h"><a name="346"></a>346</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="347"></a>347</td><td></td><td></td><td></td><td></td><td class="s">You can choose between the most compact guaranteed-single-line format possible</td></tr>
+<tr><td class="h"><a name="348"></a>348</td><td></td><td></td><td></td><td></td><td class="s">(nice for simple line-based protocols), a pure-ASCII format (for when your transport</td></tr>
+<tr><td class="h"><a name="349"></a>349</td><td></td><td></td><td></td><td></td><td class="s">is not 8-bit clean, still supports the whole Unicode range), or a pretty-printed</td></tr>
+<tr><td class="h"><a name="350"></a>350</td><td></td><td></td><td></td><td></td><td class="s">format (for when you want to read that stuff). Or you can combine those features</td></tr>
+<tr><td class="h"><a name="351"></a>351</td><td></td><td></td><td></td><td></td><td class="s">in whatever way you like.</td></tr>
+<tr><td class="h"><a name="352"></a>352</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="353"></a>353</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
+<tr><td class="h"><a name="354"></a>354</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="355"></a>355</td><td></td><td></td><td></td><td></td><td class="s">=head1 FUNCTIONAL INTERFACE</td></tr>
+<tr><td class="h"><a name="356"></a>356</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="357"></a>357</td><td></td><td></td><td></td><td></td><td class="s">Some documents are copied and modified from L&lt;JSON::XS/FUNCTIONAL INTERFACE&gt;.</td></tr>
+<tr><td class="h"><a name="358"></a>358</td><td></td><td></td><td></td><td></td><td class="s">C&lt;to_json&gt; and C&lt;from_json&gt; are additional functions.</td></tr>
+<tr><td class="h"><a name="359"></a>359</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="360"></a>360</td><td></td><td></td><td></td><td></td><td class="s">=head2 encode_json</td></tr>
+<tr><td class="h"><a name="361"></a>361</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="362"></a>362</td><td></td><td></td><td></td><td></td><td class="s">    $json_text = encode_json $perl_scalar</td></tr>
+<tr><td class="h"><a name="363"></a>363</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="364"></a>364</td><td></td><td></td><td></td><td></td><td class="s">Converts the given Perl data structure to a UTF-8 encoded, binary string.</td></tr>
+<tr><td class="h"><a name="365"></a>365</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="366"></a>366</td><td></td><td></td><td></td><td></td><td class="s">This function call is functionally identical to:</td></tr>
+<tr><td class="h"><a name="367"></a>367</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="368"></a>368</td><td></td><td></td><td></td><td></td><td class="s">    $json_text = JSON-&gt;new-&gt;utf8-&gt;encode($perl_scalar)</td></tr>
+<tr><td class="h"><a name="369"></a>369</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="370"></a>370</td><td></td><td></td><td></td><td></td><td class="s">=head2 decode_json</td></tr>
+<tr><td class="h"><a name="371"></a>371</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="372"></a>372</td><td></td><td></td><td></td><td></td><td class="s">    $perl_scalar = decode_json $json_text</td></tr>
+<tr><td class="h"><a name="373"></a>373</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="374"></a>374</td><td></td><td></td><td></td><td></td><td class="s">The opposite of C&lt;encode_json&gt;: expects an UTF-8 (binary) string and tries</td></tr>
+<tr><td class="h"><a name="375"></a>375</td><td></td><td></td><td></td><td></td><td class="s">to parse that as an UTF-8 encoded JSON text, returning the resulting</td></tr>
+<tr><td class="h"><a name="376"></a>376</td><td></td><td></td><td></td><td></td><td class="s">reference.</td></tr>
+<tr><td class="h"><a name="377"></a>377</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="378"></a>378</td><td></td><td></td><td></td><td></td><td class="s">This function call is functionally identical to:</td></tr>
+<tr><td class="h"><a name="379"></a>379</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="380"></a>380</td><td></td><td></td><td></td><td></td><td class="s">    $perl_scalar = JSON-&gt;new-&gt;utf8-&gt;decode($json_text)</td></tr>
+<tr><td class="h"><a name="381"></a>381</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="382"></a>382</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="383"></a>383</td><td></td><td></td><td></td><td></td><td class="s">=head2 to_json</td></tr>
+<tr><td class="h"><a name="384"></a>384</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="385"></a>385</td><td></td><td></td><td></td><td></td><td class="s">   $json_text = to_json($perl_scalar)</td></tr>
+<tr><td class="h"><a name="386"></a>386</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="387"></a>387</td><td></td><td></td><td></td><td></td><td class="s">Converts the given Perl data structure to a json string.</td></tr>
+<tr><td class="h"><a name="388"></a>388</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="389"></a>389</td><td></td><td></td><td></td><td></td><td class="s">This function call is functionally identical to:</td></tr>
+<tr><td class="h"><a name="390"></a>390</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="391"></a>391</td><td></td><td></td><td></td><td></td><td class="s">   $json_text = JSON-&gt;new-&gt;encode($perl_scalar)</td></tr>
+<tr><td class="h"><a name="392"></a>392</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="393"></a>393</td><td></td><td></td><td></td><td></td><td class="s">Takes a hash reference as the second.</td></tr>
+<tr><td class="h"><a name="394"></a>394</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="395"></a>395</td><td></td><td></td><td></td><td></td><td class="s">   $json_text = to_json($perl_scalar, $flag_hashref)</td></tr>
+<tr><td class="h"><a name="396"></a>396</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="397"></a>397</td><td></td><td></td><td></td><td></td><td class="s">So,</td></tr>
+<tr><td class="h"><a name="398"></a>398</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="399"></a>399</td><td></td><td></td><td></td><td></td><td class="s">   $json_text = to_json($perl_scalar, {utf8 =&gt; 1, pretty =&gt; 1})</td></tr>
+<tr><td class="h"><a name="400"></a>400</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="401"></a>401</td><td></td><td></td><td></td><td></td><td class="s">equivalent to:</td></tr>
+<tr><td class="h"><a name="402"></a>402</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="403"></a>403</td><td></td><td></td><td></td><td></td><td class="s">   $json_text = JSON-&gt;new-&gt;utf8(1)-&gt;pretty(1)-&gt;encode($perl_scalar)</td></tr>
+<tr><td class="h"><a name="404"></a>404</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="405"></a>405</td><td></td><td></td><td></td><td></td><td class="s">If you want to write a modern perl code which communicates to outer world,</td></tr>
+<tr><td class="h"><a name="406"></a>406</td><td></td><td></td><td></td><td></td><td class="s">you should use C&lt;encode_json&gt; (supposed that JSON data are encoded in UTF-8).</td></tr>
+<tr><td class="h"><a name="407"></a>407</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="408"></a>408</td><td></td><td></td><td></td><td></td><td class="s">=head2 from_json</td></tr>
+<tr><td class="h"><a name="409"></a>409</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="410"></a>410</td><td></td><td></td><td></td><td></td><td class="s">   $perl_scalar = from_json($json_text)</td></tr>
+<tr><td class="h"><a name="411"></a>411</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="412"></a>412</td><td></td><td></td><td></td><td></td><td class="s">The opposite of C&lt;to_json&gt;: expects a json string and tries</td></tr>
+<tr><td class="h"><a name="413"></a>413</td><td></td><td></td><td></td><td></td><td class="s">to parse it, returning the resulting reference.</td></tr>
+<tr><td class="h"><a name="414"></a>414</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="415"></a>415</td><td></td><td></td><td></td><td></td><td class="s">This function call is functionally identical to:</td></tr>
+<tr><td class="h"><a name="416"></a>416</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="417"></a>417</td><td></td><td></td><td></td><td></td><td class="s">    $perl_scalar = JSON-&gt;decode($json_text)</td></tr>
+<tr><td class="h"><a name="418"></a>418</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="419"></a>419</td><td></td><td></td><td></td><td></td><td class="s">Takes a hash reference as the second.</td></tr>
+<tr><td class="h"><a name="420"></a>420</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="421"></a>421</td><td></td><td></td><td></td><td></td><td class="s">    $perl_scalar = from_json($json_text, $flag_hashref)</td></tr>
+<tr><td class="h"><a name="422"></a>422</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="423"></a>423</td><td></td><td></td><td></td><td></td><td class="s">So,</td></tr>
+<tr><td class="h"><a name="424"></a>424</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="425"></a>425</td><td></td><td></td><td></td><td></td><td class="s">    $perl_scalar = from_json($json_text, {utf8 =&gt; 1})</td></tr>
+<tr><td class="h"><a name="426"></a>426</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="427"></a>427</td><td></td><td></td><td></td><td></td><td class="s">equivalent to:</td></tr>
+<tr><td class="h"><a name="428"></a>428</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="429"></a>429</td><td></td><td></td><td></td><td></td><td class="s">    $perl_scalar = JSON-&gt;new-&gt;utf8(1)-&gt;decode($json_text)</td></tr>
+<tr><td class="h"><a name="430"></a>430</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="431"></a>431</td><td></td><td></td><td></td><td></td><td class="s">If you want to write a modern perl code which communicates to outer world,</td></tr>
+<tr><td class="h"><a name="432"></a>432</td><td></td><td></td><td></td><td></td><td class="s">you should use C&lt;decode_json&gt; (supposed that JSON data are encoded in UTF-8).</td></tr>
+<tr><td class="h"><a name="433"></a>433</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="434"></a>434</td><td></td><td></td><td></td><td></td><td class="s">=head2 JSON::is_bool</td></tr>
+<tr><td class="h"><a name="435"></a>435</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="436"></a>436</td><td></td><td></td><td></td><td></td><td class="s">    $is_boolean = JSON::is_bool($scalar)</td></tr>
+<tr><td class="h"><a name="437"></a>437</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="438"></a>438</td><td></td><td></td><td></td><td></td><td class="s">Returns true if the passed scalar represents either JSON::true or</td></tr>
+<tr><td class="h"><a name="439"></a>439</td><td></td><td></td><td></td><td></td><td class="s">JSON::false, two constants that act like C&lt;1&gt; and C&lt;0&gt; respectively</td></tr>
+<tr><td class="h"><a name="440"></a>440</td><td></td><td></td><td></td><td></td><td class="s">and are also used to represent JSON C&lt;true&gt; and C&lt;false&gt; in Perl strings.</td></tr>
+<tr><td class="h"><a name="441"></a>441</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="442"></a>442</td><td></td><td></td><td></td><td></td><td class="s">=head2 JSON::true</td></tr>
+<tr><td class="h"><a name="443"></a>443</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="444"></a>444</td><td></td><td></td><td></td><td></td><td class="s">Returns JSON true value which is blessed object.</td></tr>
+<tr><td class="h"><a name="445"></a>445</td><td></td><td></td><td></td><td></td><td class="s">It C&lt;isa&gt; JSON::Boolean object.</td></tr>
+<tr><td class="h"><a name="446"></a>446</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="447"></a>447</td><td></td><td></td><td></td><td></td><td class="s">=head2 JSON::false</td></tr>
+<tr><td class="h"><a name="448"></a>448</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="449"></a>449</td><td></td><td></td><td></td><td></td><td class="s">Returns JSON false value which is blessed object.</td></tr>
+<tr><td class="h"><a name="450"></a>450</td><td></td><td></td><td></td><td></td><td class="s">It C&lt;isa&gt; JSON::Boolean object.</td></tr>
+<tr><td class="h"><a name="451"></a>451</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="452"></a>452</td><td></td><td></td><td></td><td></td><td class="s">=head2 JSON::null</td></tr>
+<tr><td class="h"><a name="453"></a>453</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="454"></a>454</td><td></td><td></td><td></td><td></td><td class="s">Returns C&lt;undef&gt;.</td></tr>
+<tr><td class="h"><a name="455"></a>455</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="456"></a>456</td><td></td><td></td><td></td><td></td><td class="s">See L&lt;MAPPING&gt;, below, for more information on how JSON values are mapped to</td></tr>
+<tr><td class="h"><a name="457"></a>457</td><td></td><td></td><td></td><td></td><td class="s">Perl.</td></tr>
+<tr><td class="h"><a name="458"></a>458</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="459"></a>459</td><td></td><td></td><td></td><td></td><td class="s">=head1 HOW DO I DECODE A DATA FROM OUTER AND ENCODE TO OUTER</td></tr>
+<tr><td class="h"><a name="460"></a>460</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="461"></a>461</td><td></td><td></td><td></td><td></td><td class="s">This section supposes that your perl vresion is 5.8 or later.</td></tr>
+<tr><td class="h"><a name="462"></a>462</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="463"></a>463</td><td></td><td></td><td></td><td></td><td class="s">If you know a JSON text from an outer world - a network, a file content, and so on,</td></tr>
+<tr><td class="h"><a name="464"></a>464</td><td></td><td></td><td></td><td></td><td class="s">is encoded in UTF-8, you should use C&lt;decode_json&gt; or C&lt;JSON&gt; module object</td></tr>
+<tr><td class="h"><a name="465"></a>465</td><td></td><td></td><td></td><td></td><td class="s">with C&lt;utf8&gt; enable. And the decoded result will contain UNICODE characters.</td></tr>
+<tr><td class="h"><a name="466"></a>466</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="467"></a>467</td><td></td><td></td><td></td><td></td><td class="s">  # from network</td></tr>
+<tr><td class="h"><a name="468"></a>468</td><td></td><td></td><td></td><td></td><td class="s">  my $json        = JSON-&gt;new-&gt;utf8;</td></tr>
+<tr><td class="h"><a name="469"></a>469</td><td></td><td></td><td></td><td></td><td class="s">  my $json_text   = CGI-&gt;new-&gt;param( 'json_data' );</td></tr>
+<tr><td class="h"><a name="470"></a>470</td><td></td><td></td><td></td><td></td><td class="s">  my $perl_scalar = $json-&gt;decode( $json_text );</td></tr>
+<tr><td class="h"><a name="471"></a>471</td><td></td><td></td><td></td><td></td><td class="s">  </td></tr>
+<tr><td class="h"><a name="472"></a>472</td><td></td><td></td><td></td><td></td><td class="s">  # from file content</td></tr>
+<tr><td class="h"><a name="473"></a>473</td><td></td><td></td><td></td><td></td><td class="s">  local $/;</td></tr>
+<tr><td class="h"><a name="474"></a>474</td><td></td><td></td><td></td><td></td><td class="s">  open( my $fh, '&lt;', 'json.data' );</td></tr>
+<tr><td class="h"><a name="475"></a>475</td><td></td><td></td><td></td><td></td><td class="s">  $json_text   = &lt;$fh&gt;;</td></tr>
+<tr><td class="h"><a name="476"></a>476</td><td></td><td></td><td></td><td></td><td class="s">  $perl_scalar = decode_json( $json_text );</td></tr>
+<tr><td class="h"><a name="477"></a>477</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="478"></a>478</td><td></td><td></td><td></td><td></td><td class="s">If an outer data is not encoded in UTF-8, firstly you should C&lt;decode&gt; it.</td></tr>
+<tr><td class="h"><a name="479"></a>479</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="480"></a>480</td><td></td><td></td><td></td><td></td><td class="s">  use Encode;</td></tr>
+<tr><td class="h"><a name="481"></a>481</td><td></td><td></td><td></td><td></td><td class="s">  local $/;</td></tr>
+<tr><td class="h"><a name="482"></a>482</td><td></td><td></td><td></td><td></td><td class="s">  open( my $fh, '&lt;', 'json.data' );</td></tr>
+<tr><td class="h"><a name="483"></a>483</td><td></td><td></td><td></td><td></td><td class="s">  my $encoding = 'cp932';</td></tr>
+<tr><td class="h"><a name="484"></a>484</td><td></td><td></td><td></td><td></td><td class="s">  my $unicode_json_text = decode( $encoding, &lt;$fh&gt; ); # UNICODE</td></tr>
+<tr><td class="h"><a name="485"></a>485</td><td></td><td></td><td></td><td></td><td class="s">  </td></tr>
+<tr><td class="h"><a name="486"></a>486</td><td></td><td></td><td></td><td></td><td class="s">  # or you can write the below code.</td></tr>
+<tr><td class="h"><a name="487"></a>487</td><td></td><td></td><td></td><td></td><td class="s">  #</td></tr>
+<tr><td class="h"><a name="488"></a>488</td><td></td><td></td><td></td><td></td><td class="s">  # open( my $fh, &quot;&lt;:encoding($encoding)&quot;, 'json.data' );</td></tr>
+<tr><td class="h"><a name="489"></a>489</td><td></td><td></td><td></td><td></td><td class="s">  # $unicode_json_text = &lt;$fh&gt;;</td></tr>
+<tr><td class="h"><a name="490"></a>490</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="491"></a>491</td><td></td><td></td><td></td><td></td><td class="s">In this case, C&lt;$unicode_json_text&gt; is of course UNICODE string.</td></tr>
+<tr><td class="h"><a name="492"></a>492</td><td></td><td></td><td></td><td></td><td class="s">So you B&lt;cannot&gt; use C&lt;decode_json&gt; nor C&lt;JSON&gt; module object with C&lt;utf8&gt; enable.</td></tr>
+<tr><td class="h"><a name="493"></a>493</td><td></td><td></td><td></td><td></td><td class="s">Instead of them, you use C&lt;JSON&gt; module object with C&lt;utf8&gt; disable or C&lt;from_json&gt;.</td></tr>
+<tr><td class="h"><a name="494"></a>494</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="495"></a>495</td><td></td><td></td><td></td><td></td><td class="s">  $perl_scalar = $json-&gt;utf8(0)-&gt;decode( $unicode_json_text );</td></tr>
+<tr><td class="h"><a name="496"></a>496</td><td></td><td></td><td></td><td></td><td class="s">  # or</td></tr>
+<tr><td class="h"><a name="497"></a>497</td><td></td><td></td><td></td><td></td><td class="s">  $perl_scalar = from_json( $unicode_json_text );</td></tr>
+<tr><td class="h"><a name="498"></a>498</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="499"></a>499</td><td></td><td></td><td></td><td></td><td class="s">Or C&lt;encode 'utf8'&gt; and C&lt;decode_json&gt;:</td></tr>
+<tr><td class="h"><a name="500"></a>500</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="501"></a>501</td><td></td><td></td><td></td><td></td><td class="s">  $perl_scalar = decode_json( encode( 'utf8', $unicode_json_text ) );</td></tr>
+<tr><td class="h"><a name="502"></a>502</td><td></td><td></td><td></td><td></td><td class="s">  # this way is not efficient.</td></tr>
+<tr><td class="h"><a name="503"></a>503</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="504"></a>504</td><td></td><td></td><td></td><td></td><td class="s">And now, you want to convert your C&lt;$perl_scalar&gt; into JSON data and</td></tr>
+<tr><td class="h"><a name="505"></a>505</td><td></td><td></td><td></td><td></td><td class="s">send it to an outer world - a network or a file content, and so on.</td></tr>
+<tr><td class="h"><a name="506"></a>506</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="507"></a>507</td><td></td><td></td><td></td><td></td><td class="s">Your data usually contains UNICODE strings and you want the converted data to be encoded</td></tr>
+<tr><td class="h"><a name="508"></a>508</td><td></td><td></td><td></td><td></td><td class="s">in UTF-8, you should use C&lt;encode_json&gt; or C&lt;JSON&gt; module object with C&lt;utf8&gt; enable.</td></tr>
+<tr><td class="h"><a name="509"></a>509</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="510"></a>510</td><td></td><td></td><td></td><td></td><td class="s">  print encode_json( $perl_scalar ); # to a network? file? or display?</td></tr>
+<tr><td class="h"><a name="511"></a>511</td><td></td><td></td><td></td><td></td><td class="s">  # or</td></tr>
+<tr><td class="h"><a name="512"></a>512</td><td></td><td></td><td></td><td></td><td class="s">  print $json-&gt;utf8-&gt;encode( $perl_scalar );</td></tr>
+<tr><td class="h"><a name="513"></a>513</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="514"></a>514</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$perl_scalar&gt; does not contain UNICODE but C&lt;$encoding&gt;-encoded strings</td></tr>
+<tr><td class="h"><a name="515"></a>515</td><td></td><td></td><td></td><td></td><td class="s">for some reason, then its characters are regarded as B&lt;latin1&gt; for perl</td></tr>
+<tr><td class="h"><a name="516"></a>516</td><td></td><td></td><td></td><td></td><td class="s">(because it does not concern with your $encoding).</td></tr>
+<tr><td class="h"><a name="517"></a>517</td><td></td><td></td><td></td><td></td><td class="s">You B&lt;cannot&gt; use C&lt;encode_json&gt; nor C&lt;JSON&gt; module object with C&lt;utf8&gt; enable.</td></tr>
+<tr><td class="h"><a name="518"></a>518</td><td></td><td></td><td></td><td></td><td class="s">Instead of them, you use C&lt;JSON&gt; module object with C&lt;utf8&gt; disable or C&lt;to_json&gt;.</td></tr>
+<tr><td class="h"><a name="519"></a>519</td><td></td><td></td><td></td><td></td><td class="s">Note that the resulted text is a UNICODE string but no problem to print it.</td></tr>
+<tr><td class="h"><a name="520"></a>520</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="521"></a>521</td><td></td><td></td><td></td><td></td><td class="s">  # $perl_scalar contains $encoding encoded string values</td></tr>
+<tr><td class="h"><a name="522"></a>522</td><td></td><td></td><td></td><td></td><td class="s">  $unicode_json_text = $json-&gt;utf8(0)-&gt;encode( $perl_scalar );</td></tr>
+<tr><td class="h"><a name="523"></a>523</td><td></td><td></td><td></td><td></td><td class="s">  # or </td></tr>
+<tr><td class="h"><a name="524"></a>524</td><td></td><td></td><td></td><td></td><td class="s">  $unicode_json_text = to_json( $perl_scalar );</td></tr>
+<tr><td class="h"><a name="525"></a>525</td><td></td><td></td><td></td><td></td><td class="s">  # $unicode_json_text consists of characters less than 0x100</td></tr>
+<tr><td class="h"><a name="526"></a>526</td><td></td><td></td><td></td><td></td><td class="s">  print $unicode_json_text;</td></tr>
+<tr><td class="h"><a name="527"></a>527</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="528"></a>528</td><td></td><td></td><td></td><td></td><td class="s">Or C&lt;decode $encoding&gt; all string values and C&lt;encode_json&gt;:</td></tr>
+<tr><td class="h"><a name="529"></a>529</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="530"></a>530</td><td></td><td></td><td></td><td></td><td class="s">  $perl_scalar-&gt;{ foo } = decode( $encoding, $perl_scalar-&gt;{ foo } );</td></tr>
+<tr><td class="h"><a name="531"></a>531</td><td></td><td></td><td></td><td></td><td class="s">  # ... do it to each string values, then encode_json</td></tr>
+<tr><td class="h"><a name="532"></a>532</td><td></td><td></td><td></td><td></td><td class="s">  $json_text = encode_json( $perl_scalar );</td></tr>
+<tr><td class="h"><a name="533"></a>533</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="534"></a>534</td><td></td><td></td><td></td><td></td><td class="s">This method is a proper way but probably not efficient.</td></tr>
+<tr><td class="h"><a name="535"></a>535</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="536"></a>536</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;Encode&gt;, L&lt;perluniintro&gt;.</td></tr>
+<tr><td class="h"><a name="537"></a>537</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="538"></a>538</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="539"></a>539</td><td></td><td></td><td></td><td></td><td class="s">=head1 COMMON OBJECT-ORIENTED INTERFACE</td></tr>
+<tr><td class="h"><a name="540"></a>540</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="541"></a>541</td><td></td><td></td><td></td><td></td><td class="s">=head2 new</td></tr>
+<tr><td class="h"><a name="542"></a>542</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="543"></a>543</td><td></td><td></td><td></td><td></td><td class="s">    $json = new JSON</td></tr>
+<tr><td class="h"><a name="544"></a>544</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="545"></a>545</td><td></td><td></td><td></td><td></td><td class="s">Returns a new C&lt;JSON&gt; object inherited from either JSON::XS or JSON::PP</td></tr>
+<tr><td class="h"><a name="546"></a>546</td><td></td><td></td><td></td><td></td><td class="s">that can be used to de/encode JSON strings.</td></tr>
+<tr><td class="h"><a name="547"></a>547</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="548"></a>548</td><td></td><td></td><td></td><td></td><td class="s">All boolean flags described below are by default I&lt;disabled&gt;.</td></tr>
+<tr><td class="h"><a name="549"></a>549</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="550"></a>550</td><td></td><td></td><td></td><td></td><td class="s">The mutators for flags all return the JSON object again and thus calls can</td></tr>
+<tr><td class="h"><a name="551"></a>551</td><td></td><td></td><td></td><td></td><td class="s">be chained:</td></tr>
+<tr><td class="h"><a name="552"></a>552</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="553"></a>553</td><td></td><td></td><td></td><td></td><td class="s">   my $json = JSON-&gt;new-&gt;utf8-&gt;space_after-&gt;encode({a =&gt; [1,2]})</td></tr>
+<tr><td class="h"><a name="554"></a>554</td><td></td><td></td><td></td><td></td><td class="s">   =&gt; {&quot;a&quot;: [1, 2]}</td></tr>
+<tr><td class="h"><a name="555"></a>555</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="556"></a>556</td><td></td><td></td><td></td><td></td><td class="s">=head2 ascii</td></tr>
+<tr><td class="h"><a name="557"></a>557</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="558"></a>558</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;ascii([$enable])</td></tr>
+<tr><td class="h"><a name="559"></a>559</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="560"></a>560</td><td></td><td></td><td></td><td></td><td class="s">    $enabled = $json-&gt;get_ascii</td></tr>
+<tr><td class="h"><a name="561"></a>561</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="562"></a>562</td><td></td><td></td><td></td><td></td><td class="s">If $enable is true (or missing), then the encode method will not generate characters outside</td></tr>
+<tr><td class="h"><a name="563"></a>563</td><td></td><td></td><td></td><td></td><td class="s">the code range 0..127. Any Unicode characters outside that range will be escaped using either</td></tr>
+<tr><td class="h"><a name="564"></a>564</td><td></td><td></td><td></td><td></td><td class="s">a single \uXXXX or a double \uHHHH\uLLLLL escape sequence, as per RFC4627.</td></tr>
+<tr><td class="h"><a name="565"></a>565</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="566"></a>566</td><td></td><td></td><td></td><td></td><td class="s">If $enable is false, then the encode method will not escape Unicode characters unless</td></tr>
+<tr><td class="h"><a name="567"></a>567</td><td></td><td></td><td></td><td></td><td class="s">required by the JSON syntax or other flags. This results in a faster and more compact format.</td></tr>
+<tr><td class="h"><a name="568"></a>568</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="569"></a>569</td><td></td><td></td><td></td><td></td><td class="s">This feature depends on the used Perl version and environment.</td></tr>
+<tr><td class="h"><a name="570"></a>570</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="571"></a>571</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::PP/UNICODE HANDLING ON PERLS&gt; if the backend is PP.</td></tr>
+<tr><td class="h"><a name="572"></a>572</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="573"></a>573</td><td></td><td></td><td></td><td></td><td class="s">  JSON-&gt;new-&gt;ascii(1)-&gt;encode([chr 0x10401])</td></tr>
+<tr><td class="h"><a name="574"></a>574</td><td></td><td></td><td></td><td></td><td class="s">  =&gt; [&quot;\ud801\udc01&quot;]</td></tr>
+<tr><td class="h"><a name="575"></a>575</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="576"></a>576</td><td></td><td></td><td></td><td></td><td class="s">=head2 latin1</td></tr>
+<tr><td class="h"><a name="577"></a>577</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="578"></a>578</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;latin1([$enable])</td></tr>
+<tr><td class="h"><a name="579"></a>579</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="580"></a>580</td><td></td><td></td><td></td><td></td><td class="s">    $enabled = $json-&gt;get_latin1</td></tr>
+<tr><td class="h"><a name="581"></a>581</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="582"></a>582</td><td></td><td></td><td></td><td></td><td class="s">If $enable is true (or missing), then the encode method will encode the resulting JSON</td></tr>
+<tr><td class="h"><a name="583"></a>583</td><td></td><td></td><td></td><td></td><td class="s">text as latin1 (or iso-8859-1), escaping any characters outside the code range 0..255.</td></tr>
+<tr><td class="h"><a name="584"></a>584</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="585"></a>585</td><td></td><td></td><td></td><td></td><td class="s">If $enable is false, then the encode method will not escape Unicode characters</td></tr>
+<tr><td class="h"><a name="586"></a>586</td><td></td><td></td><td></td><td></td><td class="s">unless required by the JSON syntax or other flags.</td></tr>
+<tr><td class="h"><a name="587"></a>587</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="588"></a>588</td><td></td><td></td><td></td><td></td><td class="s">  JSON-&gt;new-&gt;latin1-&gt;encode ([&quot;\x{89}\x{abc}&quot;]</td></tr>
+<tr><td class="h"><a name="589"></a>589</td><td></td><td></td><td></td><td></td><td class="s">  =&gt; [&quot;\x{89}\\u0abc&quot;]    # (perl syntax, U+abc escaped, U+89 not)</td></tr>
+<tr><td class="h"><a name="590"></a>590</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="591"></a>591</td><td></td><td></td><td></td><td></td><td class="s">=head2 utf8</td></tr>
+<tr><td class="h"><a name="592"></a>592</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="593"></a>593</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;utf8([$enable])</td></tr>
+<tr><td class="h"><a name="594"></a>594</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="595"></a>595</td><td></td><td></td><td></td><td></td><td class="s">    $enabled = $json-&gt;get_utf8</td></tr>
+<tr><td class="h"><a name="596"></a>596</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="597"></a>597</td><td></td><td></td><td></td><td></td><td class="s">If $enable is true (or missing), then the encode method will encode the JSON result</td></tr>
+<tr><td class="h"><a name="598"></a>598</td><td></td><td></td><td></td><td></td><td class="s">into UTF-8, as required by many protocols, while the decode method expects to be handled</td></tr>
+<tr><td class="h"><a name="599"></a>599</td><td></td><td></td><td></td><td></td><td class="s">an UTF-8-encoded string. Please note that UTF-8-encoded strings do not contain any</td></tr>
+<tr><td class="h"><a name="600"></a>600</td><td></td><td></td><td></td><td></td><td class="s">characters outside the range 0..255, they are thus useful for bytewise/binary I/O.</td></tr>
+<tr><td class="h"><a name="601"></a>601</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="602"></a>602</td><td></td><td></td><td></td><td></td><td class="s">In future versions, enabling this option might enable autodetection of the UTF-16 and UTF-32</td></tr>
+<tr><td class="h"><a name="603"></a>603</td><td></td><td></td><td></td><td></td><td class="s">encoding families, as described in RFC4627.</td></tr>
+<tr><td class="h"><a name="604"></a>604</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="605"></a>605</td><td></td><td></td><td></td><td></td><td class="s">If $enable is false, then the encode method will return the JSON string as a (non-encoded)</td></tr>
+<tr><td class="h"><a name="606"></a>606</td><td></td><td></td><td></td><td></td><td class="s">Unicode string, while decode expects thus a Unicode string. Any decoding or encoding</td></tr>
+<tr><td class="h"><a name="607"></a>607</td><td></td><td></td><td></td><td></td><td class="s">(e.g. to UTF-8 or UTF-16) needs to be done yourself, e.g. using the Encode module.</td></tr>
+<tr><td class="h"><a name="608"></a>608</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="609"></a>609</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="610"></a>610</td><td></td><td></td><td></td><td></td><td class="s">Example, output UTF-16BE-encoded JSON:</td></tr>
+<tr><td class="h"><a name="611"></a>611</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="612"></a>612</td><td></td><td></td><td></td><td></td><td class="s">  use Encode;</td></tr>
+<tr><td class="h"><a name="613"></a>613</td><td></td><td></td><td></td><td></td><td class="s">  $jsontext = encode &quot;UTF-16BE&quot;, JSON::XS-&gt;new-&gt;encode ($object);</td></tr>
+<tr><td class="h"><a name="614"></a>614</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="615"></a>615</td><td></td><td></td><td></td><td></td><td class="s">Example, decode UTF-32LE-encoded JSON:</td></tr>
+<tr><td class="h"><a name="616"></a>616</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="617"></a>617</td><td></td><td></td><td></td><td></td><td class="s">  use Encode;</td></tr>
+<tr><td class="h"><a name="618"></a>618</td><td></td><td></td><td></td><td></td><td class="s">  $object = JSON::XS-&gt;new-&gt;decode (decode &quot;UTF-32LE&quot;, $jsontext);</td></tr>
+<tr><td class="h"><a name="619"></a>619</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="620"></a>620</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::PP/UNICODE HANDLING ON PERLS&gt; if the backend is PP.</td></tr>
+<tr><td class="h"><a name="621"></a>621</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="622"></a>622</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="623"></a>623</td><td></td><td></td><td></td><td></td><td class="s">=head2 pretty</td></tr>
+<tr><td class="h"><a name="624"></a>624</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="625"></a>625</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;pretty([$enable])</td></tr>
+<tr><td class="h"><a name="626"></a>626</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="627"></a>627</td><td></td><td></td><td></td><td></td><td class="s">This enables (or disables) all of the C&lt;indent&gt;, C&lt;space_before&gt; and</td></tr>
+<tr><td class="h"><a name="628"></a>628</td><td></td><td></td><td></td><td></td><td class="s">C&lt;space_after&gt; (and in the future possibly more) flags in one call to</td></tr>
+<tr><td class="h"><a name="629"></a>629</td><td></td><td></td><td></td><td></td><td class="s">generate the most readable (or most compact) form possible.</td></tr>
+<tr><td class="h"><a name="630"></a>630</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="631"></a>631</td><td></td><td></td><td></td><td></td><td class="s">Equivalent to:</td></tr>
+<tr><td class="h"><a name="632"></a>632</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="633"></a>633</td><td></td><td></td><td></td><td></td><td class="s">   $json-&gt;indent-&gt;space_before-&gt;space_after</td></tr>
+<tr><td class="h"><a name="634"></a>634</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="635"></a>635</td><td></td><td></td><td></td><td></td><td class="s">The indent space length is three and JSON::XS cannot change the indent</td></tr>
+<tr><td class="h"><a name="636"></a>636</td><td></td><td></td><td></td><td></td><td class="s">space length.</td></tr>
+<tr><td class="h"><a name="637"></a>637</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="638"></a>638</td><td></td><td></td><td></td><td></td><td class="s">=head2 indent</td></tr>
+<tr><td class="h"><a name="639"></a>639</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="640"></a>640</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;indent([$enable])</td></tr>
+<tr><td class="h"><a name="641"></a>641</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="642"></a>642</td><td></td><td></td><td></td><td></td><td class="s">    $enabled = $json-&gt;get_indent</td></tr>
+<tr><td class="h"><a name="643"></a>643</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="644"></a>644</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is true (or missing), then the C&lt;encode&gt; method will use a multiline</td></tr>
+<tr><td class="h"><a name="645"></a>645</td><td></td><td></td><td></td><td></td><td class="s">format as output, putting every array member or object/hash key-value pair</td></tr>
+<tr><td class="h"><a name="646"></a>646</td><td></td><td></td><td></td><td></td><td class="s">into its own line, identing them properly.</td></tr>
+<tr><td class="h"><a name="647"></a>647</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="648"></a>648</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is false, no newlines or indenting will be produced, and the</td></tr>
+<tr><td class="h"><a name="649"></a>649</td><td></td><td></td><td></td><td></td><td class="s">resulting JSON text is guarenteed not to contain any C&lt;newlines&gt;.</td></tr>
+<tr><td class="h"><a name="650"></a>650</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="651"></a>651</td><td></td><td></td><td></td><td></td><td class="s">This setting has no effect when decoding JSON texts.</td></tr>
+<tr><td class="h"><a name="652"></a>652</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="653"></a>653</td><td></td><td></td><td></td><td></td><td class="s">The indent space length is three.</td></tr>
+<tr><td class="h"><a name="654"></a>654</td><td></td><td></td><td></td><td></td><td class="s">With JSON::PP, you can also access C&lt;indent_length&gt; to change indent space length.</td></tr>
+<tr><td class="h"><a name="655"></a>655</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="656"></a>656</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="657"></a>657</td><td></td><td></td><td></td><td></td><td class="s">=head2 space_before</td></tr>
+<tr><td class="h"><a name="658"></a>658</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="659"></a>659</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;space_before([$enable])</td></tr>
+<tr><td class="h"><a name="660"></a>660</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="661"></a>661</td><td></td><td></td><td></td><td></td><td class="s">    $enabled = $json-&gt;get_space_before</td></tr>
+<tr><td class="h"><a name="662"></a>662</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="663"></a>663</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is true (or missing), then the C&lt;encode&gt; method will add an extra</td></tr>
+<tr><td class="h"><a name="664"></a>664</td><td></td><td></td><td></td><td></td><td class="s">optional space before the C&lt;:&gt; separating keys from values in JSON objects.</td></tr>
+<tr><td class="h"><a name="665"></a>665</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="666"></a>666</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is false, then the C&lt;encode&gt; method will not add any extra</td></tr>
+<tr><td class="h"><a name="667"></a>667</td><td></td><td></td><td></td><td></td><td class="s">space at those places.</td></tr>
+<tr><td class="h"><a name="668"></a>668</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="669"></a>669</td><td></td><td></td><td></td><td></td><td class="s">This setting has no effect when decoding JSON texts.</td></tr>
+<tr><td class="h"><a name="670"></a>670</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="671"></a>671</td><td></td><td></td><td></td><td></td><td class="s">Example, space_before enabled, space_after and indent disabled:</td></tr>
+<tr><td class="h"><a name="672"></a>672</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="673"></a>673</td><td></td><td></td><td></td><td></td><td class="s">   {&quot;key&quot; :&quot;value&quot;}</td></tr>
+<tr><td class="h"><a name="674"></a>674</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="675"></a>675</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="676"></a>676</td><td></td><td></td><td></td><td></td><td class="s">=head2 space_after</td></tr>
+<tr><td class="h"><a name="677"></a>677</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="678"></a>678</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;space_after([$enable])</td></tr>
+<tr><td class="h"><a name="679"></a>679</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="680"></a>680</td><td></td><td></td><td></td><td></td><td class="s">    $enabled = $json-&gt;get_space_after</td></tr>
+<tr><td class="h"><a name="681"></a>681</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="682"></a>682</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is true (or missing), then the C&lt;encode&gt; method will add an extra</td></tr>
+<tr><td class="h"><a name="683"></a>683</td><td></td><td></td><td></td><td></td><td class="s">optional space after the C&lt;:&gt; separating keys from values in JSON objects</td></tr>
+<tr><td class="h"><a name="684"></a>684</td><td></td><td></td><td></td><td></td><td class="s">and extra whitespace after the C&lt;,&gt; separating key-value pairs and array</td></tr>
+<tr><td class="h"><a name="685"></a>685</td><td></td><td></td><td></td><td></td><td class="s">members.</td></tr>
+<tr><td class="h"><a name="686"></a>686</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="687"></a>687</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is false, then the C&lt;encode&gt; method will not add any extra</td></tr>
+<tr><td class="h"><a name="688"></a>688</td><td></td><td></td><td></td><td></td><td class="s">space at those places.</td></tr>
+<tr><td class="h"><a name="689"></a>689</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="690"></a>690</td><td></td><td></td><td></td><td></td><td class="s">This setting has no effect when decoding JSON texts.</td></tr>
+<tr><td class="h"><a name="691"></a>691</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="692"></a>692</td><td></td><td></td><td></td><td></td><td class="s">Example, space_before and indent disabled, space_after enabled:</td></tr>
+<tr><td class="h"><a name="693"></a>693</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="694"></a>694</td><td></td><td></td><td></td><td></td><td class="s">   {&quot;key&quot;: &quot;value&quot;}</td></tr>
+<tr><td class="h"><a name="695"></a>695</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="696"></a>696</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="697"></a>697</td><td></td><td></td><td></td><td></td><td class="s">=head2 relaxed</td></tr>
+<tr><td class="h"><a name="698"></a>698</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="699"></a>699</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;relaxed([$enable])</td></tr>
+<tr><td class="h"><a name="700"></a>700</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="701"></a>701</td><td></td><td></td><td></td><td></td><td class="s">    $enabled = $json-&gt;get_relaxed</td></tr>
+<tr><td class="h"><a name="702"></a>702</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="703"></a>703</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is true (or missing), then C&lt;decode&gt; will accept some</td></tr>
+<tr><td class="h"><a name="704"></a>704</td><td></td><td></td><td></td><td></td><td class="s">extensions to normal JSON syntax (see below). C&lt;encode&gt; will not be</td></tr>
+<tr><td class="h"><a name="705"></a>705</td><td></td><td></td><td></td><td></td><td class="s">affected in anyway. I&lt;Be aware that this option makes you accept invalid</td></tr>
+<tr><td class="h"><a name="706"></a>706</td><td></td><td></td><td></td><td></td><td class="s">JSON texts as if they were valid!&gt;. I suggest only to use this option to</td></tr>
+<tr><td class="h"><a name="707"></a>707</td><td></td><td></td><td></td><td></td><td class="s">parse application-specific files written by humans (configuration files,</td></tr>
+<tr><td class="h"><a name="708"></a>708</td><td></td><td></td><td></td><td></td><td class="s">resource files etc.)</td></tr>
+<tr><td class="h"><a name="709"></a>709</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="710"></a>710</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is false (the default), then C&lt;decode&gt; will only accept</td></tr>
+<tr><td class="h"><a name="711"></a>711</td><td></td><td></td><td></td><td></td><td class="s">valid JSON texts.</td></tr>
+<tr><td class="h"><a name="712"></a>712</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="713"></a>713</td><td></td><td></td><td></td><td></td><td class="s">Currently accepted extensions are:</td></tr>
+<tr><td class="h"><a name="714"></a>714</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="715"></a>715</td><td></td><td></td><td></td><td></td><td class="s">=over 4</td></tr>
+<tr><td class="h"><a name="716"></a>716</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="717"></a>717</td><td></td><td></td><td></td><td></td><td class="s">=item * list items can have an end-comma</td></tr>
+<tr><td class="h"><a name="718"></a>718</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="719"></a>719</td><td></td><td></td><td></td><td></td><td class="s">JSON I&lt;separates&gt; array elements and key-value pairs with commas. This</td></tr>
+<tr><td class="h"><a name="720"></a>720</td><td></td><td></td><td></td><td></td><td class="s">can be annoying if you write JSON texts manually and want to be able to</td></tr>
+<tr><td class="h"><a name="721"></a>721</td><td></td><td></td><td></td><td></td><td class="s">quickly append elements, so this extension accepts comma at the end of</td></tr>
+<tr><td class="h"><a name="722"></a>722</td><td></td><td></td><td></td><td></td><td class="s">such items not just between them:</td></tr>
+<tr><td class="h"><a name="723"></a>723</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="724"></a>724</td><td></td><td></td><td></td><td></td><td class="s">   [</td></tr>
+<tr><td class="h"><a name="725"></a>725</td><td></td><td></td><td></td><td></td><td class="s">      1,</td></tr>
+<tr><td class="h"><a name="726"></a>726</td><td></td><td></td><td></td><td></td><td class="s">      2, &lt;- this comma not normally allowed</td></tr>
+<tr><td class="h"><a name="727"></a>727</td><td></td><td></td><td></td><td></td><td class="s">   ]</td></tr>
+<tr><td class="h"><a name="728"></a>728</td><td></td><td></td><td></td><td></td><td class="s">   {</td></tr>
+<tr><td class="h"><a name="729"></a>729</td><td></td><td></td><td></td><td></td><td class="s">      &quot;k1&quot;: &quot;v1&quot;,</td></tr>
+<tr><td class="h"><a name="730"></a>730</td><td></td><td></td><td></td><td></td><td class="s">      &quot;k2&quot;: &quot;v2&quot;, &lt;- this comma not normally allowed</td></tr>
+<tr><td class="h"><a name="731"></a>731</td><td></td><td></td><td></td><td></td><td class="s">   }</td></tr>
+<tr><td class="h"><a name="732"></a>732</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="733"></a>733</td><td></td><td></td><td></td><td></td><td class="s">=item * shell-style '#'-comments</td></tr>
+<tr><td class="h"><a name="734"></a>734</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="735"></a>735</td><td></td><td></td><td></td><td></td><td class="s">Whenever JSON allows whitespace, shell-style comments are additionally</td></tr>
+<tr><td class="h"><a name="736"></a>736</td><td></td><td></td><td></td><td></td><td class="s">allowed. They are terminated by the first carriage-return or line-feed</td></tr>
+<tr><td class="h"><a name="737"></a>737</td><td></td><td></td><td></td><td></td><td class="s">character, after which more white-space and comments are allowed.</td></tr>
+<tr><td class="h"><a name="738"></a>738</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="739"></a>739</td><td></td><td></td><td></td><td></td><td class="s">  [</td></tr>
+<tr><td class="h"><a name="740"></a>740</td><td></td><td></td><td></td><td></td><td class="s">     1, # this comment not allowed in JSON</td></tr>
+<tr><td class="h"><a name="741"></a>741</td><td></td><td></td><td></td><td></td><td class="s">        # neither this one...</td></tr>
+<tr><td class="h"><a name="742"></a>742</td><td></td><td></td><td></td><td></td><td class="s">  ]</td></tr>
+<tr><td class="h"><a name="743"></a>743</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="744"></a>744</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
+<tr><td class="h"><a name="745"></a>745</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="746"></a>746</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="747"></a>747</td><td></td><td></td><td></td><td></td><td class="s">=head2 canonical</td></tr>
+<tr><td class="h"><a name="748"></a>748</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="749"></a>749</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;canonical([$enable])</td></tr>
+<tr><td class="h"><a name="750"></a>750</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="751"></a>751</td><td></td><td></td><td></td><td></td><td class="s">    $enabled = $json-&gt;get_canonical</td></tr>
+<tr><td class="h"><a name="752"></a>752</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="753"></a>753</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is true (or missing), then the C&lt;encode&gt; method will output JSON objects</td></tr>
+<tr><td class="h"><a name="754"></a>754</td><td></td><td></td><td></td><td></td><td class="s">by sorting their keys. This is adding a comparatively high overhead.</td></tr>
+<tr><td class="h"><a name="755"></a>755</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="756"></a>756</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is false, then the C&lt;encode&gt; method will output key-value</td></tr>
+<tr><td class="h"><a name="757"></a>757</td><td></td><td></td><td></td><td></td><td class="s">pairs in the order Perl stores them (which will likely change between runs</td></tr>
+<tr><td class="h"><a name="758"></a>758</td><td></td><td></td><td></td><td></td><td class="s">of the same script).</td></tr>
+<tr><td class="h"><a name="759"></a>759</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="760"></a>760</td><td></td><td></td><td></td><td></td><td class="s">This option is useful if you want the same data structure to be encoded as</td></tr>
+<tr><td class="h"><a name="761"></a>761</td><td></td><td></td><td></td><td></td><td class="s">the same JSON text (given the same overall settings). If it is disabled,</td></tr>
+<tr><td class="h"><a name="762"></a>762</td><td></td><td></td><td></td><td></td><td class="s">the same hash might be encoded differently even if contains the same data,</td></tr>
+<tr><td class="h"><a name="763"></a>763</td><td></td><td></td><td></td><td></td><td class="s">as key-value pairs have no inherent ordering in Perl.</td></tr>
+<tr><td class="h"><a name="764"></a>764</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="765"></a>765</td><td></td><td></td><td></td><td></td><td class="s">This setting has no effect when decoding JSON texts.</td></tr>
+<tr><td class="h"><a name="766"></a>766</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="767"></a>767</td><td></td><td></td><td></td><td></td><td class="s">=head2 allow_nonref</td></tr>
+<tr><td class="h"><a name="768"></a>768</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="769"></a>769</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;allow_nonref([$enable])</td></tr>
+<tr><td class="h"><a name="770"></a>770</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="771"></a>771</td><td></td><td></td><td></td><td></td><td class="s">    $enabled = $json-&gt;get_allow_nonref</td></tr>
+<tr><td class="h"><a name="772"></a>772</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="773"></a>773</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is true (or missing), then the C&lt;encode&gt; method can convert a</td></tr>
+<tr><td class="h"><a name="774"></a>774</td><td></td><td></td><td></td><td></td><td class="s">non-reference into its corresponding string, number or null JSON value,</td></tr>
+<tr><td class="h"><a name="775"></a>775</td><td></td><td></td><td></td><td></td><td class="s">which is an extension to RFC4627. Likewise, C&lt;decode&gt; will accept those JSON</td></tr>
+<tr><td class="h"><a name="776"></a>776</td><td></td><td></td><td></td><td></td><td class="s">values instead of croaking.</td></tr>
+<tr><td class="h"><a name="777"></a>777</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="778"></a>778</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is false, then the C&lt;encode&gt; method will croak if it isn't</td></tr>
+<tr><td class="h"><a name="779"></a>779</td><td></td><td></td><td></td><td></td><td class="s">passed an arrayref or hashref, as JSON texts must either be an object</td></tr>
+<tr><td class="h"><a name="780"></a>780</td><td></td><td></td><td></td><td></td><td class="s">or array. Likewise, C&lt;decode&gt; will croak if given something that is not a</td></tr>
+<tr><td class="h"><a name="781"></a>781</td><td></td><td></td><td></td><td></td><td class="s">JSON object or array.</td></tr>
+<tr><td class="h"><a name="782"></a>782</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="783"></a>783</td><td></td><td></td><td></td><td></td><td class="s">   JSON-&gt;new-&gt;allow_nonref-&gt;encode (&quot;Hello, World!&quot;)</td></tr>
+<tr><td class="h"><a name="784"></a>784</td><td></td><td></td><td></td><td></td><td class="s">   =&gt; &quot;Hello, World!&quot;</td></tr>
+<tr><td class="h"><a name="785"></a>785</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="786"></a>786</td><td></td><td></td><td></td><td></td><td class="s">=head2 allow_unknown</td></tr>
+<tr><td class="h"><a name="787"></a>787</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="788"></a>788</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;allow_unknown ([$enable])</td></tr>
+<tr><td class="h"><a name="789"></a>789</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="790"></a>790</td><td></td><td></td><td></td><td></td><td class="s">    $enabled = $json-&gt;get_allow_unknown</td></tr>
+<tr><td class="h"><a name="791"></a>791</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="792"></a>792</td><td></td><td></td><td></td><td></td><td class="s">If $enable is true (or missing), then &quot;encode&quot; will *not* throw an</td></tr>
+<tr><td class="h"><a name="793"></a>793</td><td></td><td></td><td></td><td></td><td class="s">exception when it encounters values it cannot represent in JSON (for</td></tr>
+<tr><td class="h"><a name="794"></a>794</td><td></td><td></td><td></td><td></td><td class="s">example, filehandles) but instead will encode a JSON &quot;null&quot; value.</td></tr>
+<tr><td class="h"><a name="795"></a>795</td><td></td><td></td><td></td><td></td><td class="s">Note that blessed objects are not included here and are handled</td></tr>
+<tr><td class="h"><a name="796"></a>796</td><td></td><td></td><td></td><td></td><td class="s">separately by c&lt;allow_nonref&gt;.</td></tr>
+<tr><td class="h"><a name="797"></a>797</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="798"></a>798</td><td></td><td></td><td></td><td></td><td class="s">If $enable is false (the default), then &quot;encode&quot; will throw an</td></tr>
+<tr><td class="h"><a name="799"></a>799</td><td></td><td></td><td></td><td></td><td class="s">exception when it encounters anything it cannot encode as JSON.</td></tr>
+<tr><td class="h"><a name="800"></a>800</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="801"></a>801</td><td></td><td></td><td></td><td></td><td class="s">This option does not affect &quot;decode&quot; in any way, and it is</td></tr>
+<tr><td class="h"><a name="802"></a>802</td><td></td><td></td><td></td><td></td><td class="s">recommended to leave it off unless you know your communications</td></tr>
+<tr><td class="h"><a name="803"></a>803</td><td></td><td></td><td></td><td></td><td class="s">partner.</td></tr>
+<tr><td class="h"><a name="804"></a>804</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="805"></a>805</td><td></td><td></td><td></td><td></td><td class="s">=head2 allow_blessed</td></tr>
+<tr><td class="h"><a name="806"></a>806</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="807"></a>807</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;allow_blessed([$enable])</td></tr>
+<tr><td class="h"><a name="808"></a>808</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="809"></a>809</td><td></td><td></td><td></td><td></td><td class="s">    $enabled = $json-&gt;get_allow_blessed</td></tr>
+<tr><td class="h"><a name="810"></a>810</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="811"></a>811</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is true (or missing), then the C&lt;encode&gt; method will not</td></tr>
+<tr><td class="h"><a name="812"></a>812</td><td></td><td></td><td></td><td></td><td class="s">barf when it encounters a blessed reference. Instead, the value of the</td></tr>
+<tr><td class="h"><a name="813"></a>813</td><td></td><td></td><td></td><td></td><td class="s">B&lt;convert_blessed&gt; option will decide whether C&lt;null&gt; (C&lt;convert_blessed&gt;</td></tr>
+<tr><td class="h"><a name="814"></a>814</td><td></td><td></td><td></td><td></td><td class="s">disabled or no C&lt;TO_JSON&gt; method found) or a representation of the</td></tr>
+<tr><td class="h"><a name="815"></a>815</td><td></td><td></td><td></td><td></td><td class="s">object (C&lt;convert_blessed&gt; enabled and C&lt;TO_JSON&gt; method found) is being</td></tr>
+<tr><td class="h"><a name="816"></a>816</td><td></td><td></td><td></td><td></td><td class="s">encoded. Has no effect on C&lt;decode&gt;.</td></tr>
+<tr><td class="h"><a name="817"></a>817</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="818"></a>818</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is false (the default), then C&lt;encode&gt; will throw an</td></tr>
+<tr><td class="h"><a name="819"></a>819</td><td></td><td></td><td></td><td></td><td class="s">exception when it encounters a blessed object.</td></tr>
+<tr><td class="h"><a name="820"></a>820</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="821"></a>821</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="822"></a>822</td><td></td><td></td><td></td><td></td><td class="s">=head2 convert_blessed</td></tr>
+<tr><td class="h"><a name="823"></a>823</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="824"></a>824</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;convert_blessed([$enable])</td></tr>
+<tr><td class="h"><a name="825"></a>825</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="826"></a>826</td><td></td><td></td><td></td><td></td><td class="s">    $enabled = $json-&gt;get_convert_blessed</td></tr>
+<tr><td class="h"><a name="827"></a>827</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="828"></a>828</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is true (or missing), then C&lt;encode&gt;, upon encountering a</td></tr>
+<tr><td class="h"><a name="829"></a>829</td><td></td><td></td><td></td><td></td><td class="s">blessed object, will check for the availability of the C&lt;TO_JSON&gt; method</td></tr>
+<tr><td class="h"><a name="830"></a>830</td><td></td><td></td><td></td><td></td><td class="s">on the object's class. If found, it will be called in scalar context</td></tr>
+<tr><td class="h"><a name="831"></a>831</td><td></td><td></td><td></td><td></td><td class="s">and the resulting scalar will be encoded instead of the object. If no</td></tr>
+<tr><td class="h"><a name="832"></a>832</td><td></td><td></td><td></td><td></td><td class="s">C&lt;TO_JSON&gt; method is found, the value of C&lt;allow_blessed&gt; will decide what</td></tr>
+<tr><td class="h"><a name="833"></a>833</td><td></td><td></td><td></td><td></td><td class="s">to do.</td></tr>
+<tr><td class="h"><a name="834"></a>834</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="835"></a>835</td><td></td><td></td><td></td><td></td><td class="s">The C&lt;TO_JSON&gt; method may safely call die if it wants. If C&lt;TO_JSON&gt;</td></tr>
+<tr><td class="h"><a name="836"></a>836</td><td></td><td></td><td></td><td></td><td class="s">returns other blessed objects, those will be handled in the same</td></tr>
+<tr><td class="h"><a name="837"></a>837</td><td></td><td></td><td></td><td></td><td class="s">way. C&lt;TO_JSON&gt; must take care of not causing an endless recursion cycle</td></tr>
+<tr><td class="h"><a name="838"></a>838</td><td></td><td></td><td></td><td></td><td class="s">(== crash) in this case. The name of C&lt;TO_JSON&gt; was chosen because other</td></tr>
+<tr><td class="h"><a name="839"></a>839</td><td></td><td></td><td></td><td></td><td class="s">methods called by the Perl core (== not by the user of the object) are</td></tr>
+<tr><td class="h"><a name="840"></a>840</td><td></td><td></td><td></td><td></td><td class="s">usually in upper case letters and to avoid collisions with the C&lt;to_json&gt;</td></tr>
+<tr><td class="h"><a name="841"></a>841</td><td></td><td></td><td></td><td></td><td class="s">function or method.</td></tr>
+<tr><td class="h"><a name="842"></a>842</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="843"></a>843</td><td></td><td></td><td></td><td></td><td class="s">This setting does not yet influence C&lt;decode&gt; in any way.</td></tr>
+<tr><td class="h"><a name="844"></a>844</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="845"></a>845</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is false, then the C&lt;allow_blessed&gt; setting will decide what</td></tr>
+<tr><td class="h"><a name="846"></a>846</td><td></td><td></td><td></td><td></td><td class="s">to do when a blessed object is found.</td></tr>
+<tr><td class="h"><a name="847"></a>847</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="848"></a>848</td><td></td><td></td><td></td><td></td><td class="s">=over</td></tr>
+<tr><td class="h"><a name="849"></a>849</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="850"></a>850</td><td></td><td></td><td></td><td></td><td class="s">=item convert_blessed_universally mode</td></tr>
+<tr><td class="h"><a name="851"></a>851</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="852"></a>852</td><td></td><td></td><td></td><td></td><td class="s">If use C&lt;JSON&gt; with C&lt;-convert_blessed_universally&gt;, the C&lt;UNIVERSAL::TO_JSON&gt;</td></tr>
+<tr><td class="h"><a name="853"></a>853</td><td></td><td></td><td></td><td></td><td class="s">subroutine is defined as the below code:</td></tr>
+<tr><td class="h"><a name="854"></a>854</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="855"></a>855</td><td></td><td></td><td></td><td></td><td class="s">   *UNIVERSAL::TO_JSON = sub {</td></tr>
+<tr><td class="h"><a name="856"></a>856</td><td></td><td></td><td></td><td></td><td class="s">       my $b_obj = B::svref_2object( $_[0] );</td></tr>
+<tr><td class="h"><a name="857"></a>857</td><td></td><td></td><td></td><td></td><td class="s">       return    $b_obj-&gt;isa('B::HV') ? { %{ $_[0] } }</td></tr>
+<tr><td class="h"><a name="858"></a>858</td><td></td><td></td><td></td><td></td><td class="s">               : $b_obj-&gt;isa('B::AV') ? [ @{ $_[0] } ]</td></tr>
+<tr><td class="h"><a name="859"></a>859</td><td></td><td></td><td></td><td></td><td class="s">               : undef</td></tr>
+<tr><td class="h"><a name="860"></a>860</td><td></td><td></td><td></td><td></td><td class="s">               ;</td></tr>
+<tr><td class="h"><a name="861"></a>861</td><td></td><td></td><td></td><td></td><td class="s">   }</td></tr>
+<tr><td class="h"><a name="862"></a>862</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="863"></a>863</td><td></td><td></td><td></td><td></td><td class="s">This will cause that C&lt;encode&gt; method converts simple blessed objects into</td></tr>
+<tr><td class="h"><a name="864"></a>864</td><td></td><td></td><td></td><td></td><td class="s">JSON objects as non-blessed object.</td></tr>
+<tr><td class="h"><a name="865"></a>865</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="866"></a>866</td><td></td><td></td><td></td><td></td><td class="s">   JSON -convert_blessed_universally;</td></tr>
+<tr><td class="h"><a name="867"></a>867</td><td></td><td></td><td></td><td></td><td class="s">   $json-&gt;allow_blessed-&gt;convert_blessed-&gt;encode( $blessed_object )</td></tr>
+<tr><td class="h"><a name="868"></a>868</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="869"></a>869</td><td></td><td></td><td></td><td></td><td class="s">This feature is experimental and may be removed in the future.</td></tr>
+<tr><td class="h"><a name="870"></a>870</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="871"></a>871</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
+<tr><td class="h"><a name="872"></a>872</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="873"></a>873</td><td></td><td></td><td></td><td></td><td class="s">=head2 filter_json_object</td></tr>
+<tr><td class="h"><a name="874"></a>874</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="875"></a>875</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;filter_json_object([$coderef])</td></tr>
+<tr><td class="h"><a name="876"></a>876</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="877"></a>877</td><td></td><td></td><td></td><td></td><td class="s">When C&lt;$coderef&gt; is specified, it will be called from C&lt;decode&gt; each</td></tr>
+<tr><td class="h"><a name="878"></a>878</td><td></td><td></td><td></td><td></td><td class="s">time it decodes a JSON object. The only argument passed to the coderef</td></tr>
+<tr><td class="h"><a name="879"></a>879</td><td></td><td></td><td></td><td></td><td class="s">is a reference to the newly-created hash. If the code references returns</td></tr>
+<tr><td class="h"><a name="880"></a>880</td><td></td><td></td><td></td><td></td><td class="s">a single scalar (which need not be a reference), this value</td></tr>
+<tr><td class="h"><a name="881"></a>881</td><td></td><td></td><td></td><td></td><td class="s">(i.e. a copy of that scalar to avoid aliasing) is inserted into the</td></tr>
+<tr><td class="h"><a name="882"></a>882</td><td></td><td></td><td></td><td></td><td class="s">deserialised data structure. If it returns an empty list</td></tr>
+<tr><td class="h"><a name="883"></a>883</td><td></td><td></td><td></td><td></td><td class="s">(NOTE: I&lt;not&gt; C&lt;undef&gt;, which is a valid scalar), the original deserialised</td></tr>
+<tr><td class="h"><a name="884"></a>884</td><td></td><td></td><td></td><td></td><td class="s">hash will be inserted. This setting can slow down decoding considerably.</td></tr>
+<tr><td class="h"><a name="885"></a>885</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="886"></a>886</td><td></td><td></td><td></td><td></td><td class="s">When C&lt;$coderef&gt; is omitted or undefined, any existing callback will</td></tr>
+<tr><td class="h"><a name="887"></a>887</td><td></td><td></td><td></td><td></td><td class="s">be removed and C&lt;decode&gt; will not change the deserialised hash in any</td></tr>
+<tr><td class="h"><a name="888"></a>888</td><td></td><td></td><td></td><td></td><td class="s">way.</td></tr>
+<tr><td class="h"><a name="889"></a>889</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="890"></a>890</td><td></td><td></td><td></td><td></td><td class="s">Example, convert all JSON objects into the integer 5:</td></tr>
+<tr><td class="h"><a name="891"></a>891</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="892"></a>892</td><td></td><td></td><td></td><td></td><td class="s">   my $js = JSON-&gt;new-&gt;filter_json_object (sub { 5 });</td></tr>
+<tr><td class="h"><a name="893"></a>893</td><td></td><td></td><td></td><td></td><td class="s">   # returns [5]</td></tr>
+<tr><td class="h"><a name="894"></a>894</td><td></td><td></td><td></td><td></td><td class="s">   $js-&gt;decode ('[{}]'); # the given subroutine takes a hash reference.</td></tr>
+<tr><td class="h"><a name="895"></a>895</td><td></td><td></td><td></td><td></td><td class="s">   # throw an exception because allow_nonref is not enabled</td></tr>
+<tr><td class="h"><a name="896"></a>896</td><td></td><td></td><td></td><td></td><td class="s">   # so a lone 5 is not allowed.</td></tr>
+<tr><td class="h"><a name="897"></a>897</td><td></td><td></td><td></td><td></td><td class="s">   $js-&gt;decode ('{&quot;a&quot;:1, &quot;b&quot;:2}');</td></tr>
+<tr><td class="h"><a name="898"></a>898</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="899"></a>899</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="900"></a>900</td><td></td><td></td><td></td><td></td><td class="s">=head2 filter_json_single_key_object</td></tr>
+<tr><td class="h"><a name="901"></a>901</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="902"></a>902</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;filter_json_single_key_object($key [=&gt; $coderef])</td></tr>
+<tr><td class="h"><a name="903"></a>903</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="904"></a>904</td><td></td><td></td><td></td><td></td><td class="s">Works remotely similar to C&lt;filter_json_object&gt;, but is only called for</td></tr>
+<tr><td class="h"><a name="905"></a>905</td><td></td><td></td><td></td><td></td><td class="s">JSON objects having a single key named C&lt;$key&gt;.</td></tr>
+<tr><td class="h"><a name="906"></a>906</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="907"></a>907</td><td></td><td></td><td></td><td></td><td class="s">This C&lt;$coderef&gt; is called before the one specified via</td></tr>
+<tr><td class="h"><a name="908"></a>908</td><td></td><td></td><td></td><td></td><td class="s">C&lt;filter_json_object&gt;, if any. It gets passed the single value in the JSON</td></tr>
+<tr><td class="h"><a name="909"></a>909</td><td></td><td></td><td></td><td></td><td class="s">object. If it returns a single value, it will be inserted into the data</td></tr>
+<tr><td class="h"><a name="910"></a>910</td><td></td><td></td><td></td><td></td><td class="s">structure. If it returns nothing (not even C&lt;undef&gt; but the empty list),</td></tr>
+<tr><td class="h"><a name="911"></a>911</td><td></td><td></td><td></td><td></td><td class="s">the callback from C&lt;filter_json_object&gt; will be called next, as if no</td></tr>
+<tr><td class="h"><a name="912"></a>912</td><td></td><td></td><td></td><td></td><td class="s">single-key callback were specified.</td></tr>
+<tr><td class="h"><a name="913"></a>913</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="914"></a>914</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$coderef&gt; is omitted or undefined, the corresponding callback will be</td></tr>
+<tr><td class="h"><a name="915"></a>915</td><td></td><td></td><td></td><td></td><td class="s">disabled. There can only ever be one callback for a given key.</td></tr>
+<tr><td class="h"><a name="916"></a>916</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="917"></a>917</td><td></td><td></td><td></td><td></td><td class="s">As this callback gets called less often then the C&lt;filter_json_object&gt;</td></tr>
+<tr><td class="h"><a name="918"></a>918</td><td></td><td></td><td></td><td></td><td class="s">one, decoding speed will not usually suffer as much. Therefore, single-key</td></tr>
+<tr><td class="h"><a name="919"></a>919</td><td></td><td></td><td></td><td></td><td class="s">objects make excellent targets to serialise Perl objects into, especially</td></tr>
+<tr><td class="h"><a name="920"></a>920</td><td></td><td></td><td></td><td></td><td class="s">as single-key JSON objects are as close to the type-tagged value concept</td></tr>
+<tr><td class="h"><a name="921"></a>921</td><td></td><td></td><td></td><td></td><td class="s">as JSON gets (it's basically an ID/VALUE tuple). Of course, JSON does not</td></tr>
+<tr><td class="h"><a name="922"></a>922</td><td></td><td></td><td></td><td></td><td class="s">support this in any way, so you need to make sure your data never looks</td></tr>
+<tr><td class="h"><a name="923"></a>923</td><td></td><td></td><td></td><td></td><td class="s">like a serialised Perl hash.</td></tr>
+<tr><td class="h"><a name="924"></a>924</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="925"></a>925</td><td></td><td></td><td></td><td></td><td class="s">Typical names for the single object key are C&lt;__class_whatever__&gt;, or</td></tr>
+<tr><td class="h"><a name="926"></a>926</td><td></td><td></td><td></td><td></td><td class="s">C&lt;$__dollars_are_rarely_used__$&gt; or C&lt;}ugly_brace_placement&gt;, or even</td></tr>
+<tr><td class="h"><a name="927"></a>927</td><td></td><td></td><td></td><td></td><td class="s">things like C&lt;__class_md5sum(classname)__&gt;, to reduce the risk of clashing</td></tr>
+<tr><td class="h"><a name="928"></a>928</td><td></td><td></td><td></td><td></td><td class="s">with real hashes.</td></tr>
+<tr><td class="h"><a name="929"></a>929</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="930"></a>930</td><td></td><td></td><td></td><td></td><td class="s">Example, decode JSON objects of the form C&lt;&lt; { &quot;__widget__&quot; =&gt; &lt;id&gt; } &gt;&gt;</td></tr>
+<tr><td class="h"><a name="931"></a>931</td><td></td><td></td><td></td><td></td><td class="s">into the corresponding C&lt;&lt; $WIDGET{&lt;id&gt;} &gt;&gt; object:</td></tr>
+<tr><td class="h"><a name="932"></a>932</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="933"></a>933</td><td></td><td></td><td></td><td></td><td class="s">   # return whatever is in $WIDGET{5}:</td></tr>
+<tr><td class="h"><a name="934"></a>934</td><td></td><td></td><td></td><td></td><td class="s">   JSON</td></tr>
+<tr><td class="h"><a name="935"></a>935</td><td></td><td></td><td></td><td></td><td class="s">      -&gt;new</td></tr>
+<tr><td class="h"><a name="936"></a>936</td><td></td><td></td><td></td><td></td><td class="s">      -&gt;filter_json_single_key_object (__widget__ =&gt; sub {</td></tr>
+<tr><td class="h"><a name="937"></a>937</td><td></td><td></td><td></td><td></td><td class="s">            $WIDGET{ $_[0] }</td></tr>
+<tr><td class="h"><a name="938"></a>938</td><td></td><td></td><td></td><td></td><td class="s">         })</td></tr>
+<tr><td class="h"><a name="939"></a>939</td><td></td><td></td><td></td><td></td><td class="s">      -&gt;decode ('{&quot;__widget__&quot;: 5')</td></tr>
+<tr><td class="h"><a name="940"></a>940</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="941"></a>941</td><td></td><td></td><td></td><td></td><td class="s">   # this can be used with a TO_JSON method in some &quot;widget&quot; class</td></tr>
+<tr><td class="h"><a name="942"></a>942</td><td></td><td></td><td></td><td></td><td class="s">   # for serialisation to json:</td></tr>
+<tr><td class="h"><a name="943"></a>943</td><td></td><td></td><td></td><td></td><td class="s">   sub WidgetBase::TO_JSON {</td></tr>
+<tr><td class="h"><a name="944"></a>944</td><td></td><td></td><td></td><td></td><td class="s">      my ($self) = @_;</td></tr>
+<tr><td class="h"><a name="945"></a>945</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="946"></a>946</td><td></td><td></td><td></td><td></td><td class="s">      unless ($self-&gt;{id}) {</td></tr>
+<tr><td class="h"><a name="947"></a>947</td><td></td><td></td><td></td><td></td><td class="s">         $self-&gt;{id} = ..get..some..id..;</td></tr>
+<tr><td class="h"><a name="948"></a>948</td><td></td><td></td><td></td><td></td><td class="s">         $WIDGET{$self-&gt;{id}} = $self;</td></tr>
+<tr><td class="h"><a name="949"></a>949</td><td></td><td></td><td></td><td></td><td class="s">      }</td></tr>
+<tr><td class="h"><a name="950"></a>950</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="951"></a>951</td><td></td><td></td><td></td><td></td><td class="s">      { __widget__ =&gt; $self-&gt;{id} }</td></tr>
+<tr><td class="h"><a name="952"></a>952</td><td></td><td></td><td></td><td></td><td class="s">   }</td></tr>
+<tr><td class="h"><a name="953"></a>953</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="954"></a>954</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="955"></a>955</td><td></td><td></td><td></td><td></td><td class="s">=head2 shrink</td></tr>
+<tr><td class="h"><a name="956"></a>956</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="957"></a>957</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;shrink([$enable])</td></tr>
+<tr><td class="h"><a name="958"></a>958</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="959"></a>959</td><td></td><td></td><td></td><td></td><td class="s">    $enabled = $json-&gt;get_shrink</td></tr>
+<tr><td class="h"><a name="960"></a>960</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="961"></a>961</td><td></td><td></td><td></td><td></td><td class="s">With JSON::XS, this flag resizes strings generated by either</td></tr>
+<tr><td class="h"><a name="962"></a>962</td><td></td><td></td><td></td><td></td><td class="s">C&lt;encode&gt; or C&lt;decode&gt; to their minimum size possible. This can save</td></tr>
+<tr><td class="h"><a name="963"></a>963</td><td></td><td></td><td></td><td></td><td class="s">memory when your JSON texts are either very very long or you have many</td></tr>
+<tr><td class="h"><a name="964"></a>964</td><td></td><td></td><td></td><td></td><td class="s">short strings. It will also try to downgrade any strings to octet-form</td></tr>
+<tr><td class="h"><a name="965"></a>965</td><td></td><td></td><td></td><td></td><td class="s">if possible: perl stores strings internally either in an encoding called</td></tr>
+<tr><td class="h"><a name="966"></a>966</td><td></td><td></td><td></td><td></td><td class="s">UTF-X or in octet-form. The latter cannot store everything but uses less</td></tr>
+<tr><td class="h"><a name="967"></a>967</td><td></td><td></td><td></td><td></td><td class="s">space in general (and some buggy Perl or C code might even rely on that</td></tr>
+<tr><td class="h"><a name="968"></a>968</td><td></td><td></td><td></td><td></td><td class="s">internal representation being used).</td></tr>
+<tr><td class="h"><a name="969"></a>969</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="970"></a>970</td><td></td><td></td><td></td><td></td><td class="s">With JSON::PP, it is noop about resizing strings but tries</td></tr>
+<tr><td class="h"><a name="971"></a>971</td><td></td><td></td><td></td><td></td><td class="s">C&lt;utf8::downgrade&gt; to the returned string by C&lt;encode&gt;. See to L&lt;utf8&gt;.</td></tr>
+<tr><td class="h"><a name="972"></a>972</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="973"></a>973</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::XS/OBJECT-ORIENTED INTERFACE&gt; and L&lt;JSON::PP/METHODS&gt;.</td></tr>
+<tr><td class="h"><a name="974"></a>974</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="975"></a>975</td><td></td><td></td><td></td><td></td><td class="s">=head2 max_depth</td></tr>
+<tr><td class="h"><a name="976"></a>976</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="977"></a>977</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;max_depth([$maximum_nesting_depth])</td></tr>
+<tr><td class="h"><a name="978"></a>978</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="979"></a>979</td><td></td><td></td><td></td><td></td><td class="s">    $max_depth = $json-&gt;get_max_depth</td></tr>
+<tr><td class="h"><a name="980"></a>980</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="981"></a>981</td><td></td><td></td><td></td><td></td><td class="s">Sets the maximum nesting level (default C&lt;512&gt;) accepted while encoding</td></tr>
+<tr><td class="h"><a name="982"></a>982</td><td></td><td></td><td></td><td></td><td class="s">or decoding. If a higher nesting level is detected in JSON text or a Perl</td></tr>
+<tr><td class="h"><a name="983"></a>983</td><td></td><td></td><td></td><td></td><td class="s">data structure, then the encoder and decoder will stop and croak at that</td></tr>
+<tr><td class="h"><a name="984"></a>984</td><td></td><td></td><td></td><td></td><td class="s">point.</td></tr>
+<tr><td class="h"><a name="985"></a>985</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="986"></a>986</td><td></td><td></td><td></td><td></td><td class="s">Nesting level is defined by number of hash- or arrayrefs that the encoder</td></tr>
+<tr><td class="h"><a name="987"></a>987</td><td></td><td></td><td></td><td></td><td class="s">needs to traverse to reach a given point or the number of C&lt;{&gt; or C&lt;[&gt;</td></tr>
+<tr><td class="h"><a name="988"></a>988</td><td></td><td></td><td></td><td></td><td class="s">characters without their matching closing parenthesis crossed to reach a</td></tr>
+<tr><td class="h"><a name="989"></a>989</td><td></td><td></td><td></td><td></td><td class="s">given character in a string.</td></tr>
+<tr><td class="h"><a name="990"></a>990</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="991"></a>991</td><td></td><td></td><td></td><td></td><td class="s">If no argument is given, the highest possible setting will be used, which</td></tr>
+<tr><td class="h"><a name="992"></a>992</td><td></td><td></td><td></td><td></td><td class="s">is rarely useful.</td></tr>
+<tr><td class="h"><a name="993"></a>993</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="994"></a>994</td><td></td><td></td><td></td><td></td><td class="s">Note that nesting is implemented by recursion in C. The default value has</td></tr>
+<tr><td class="h"><a name="995"></a>995</td><td></td><td></td><td></td><td></td><td class="s">been chosen to be as large as typical operating systems allow without</td></tr>
+<tr><td class="h"><a name="996"></a>996</td><td></td><td></td><td></td><td></td><td class="s">crashing. (JSON::XS)</td></tr>
+<tr><td class="h"><a name="997"></a>997</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="998"></a>998</td><td></td><td></td><td></td><td></td><td class="s">With JSON::PP as the backend, when a large value (100 or more) was set and</td></tr>
+<tr><td class="h"><a name="999"></a>999</td><td></td><td></td><td></td><td></td><td class="s">it de/encodes a deep nested object/text, it may raise a warning</td></tr>
+<tr><td class="h"><a name="1000"></a>1000</td><td></td><td></td><td></td><td></td><td class="s">'Deep recursion on subroutin' at the perl runtime phase.</td></tr>
+<tr><td class="h"><a name="1001"></a>1001</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1002"></a>1002</td><td></td><td></td><td></td><td></td><td class="s">See L&lt;JSON::XS/SECURITY CONSIDERATIONS&gt; for more info on why this is useful.</td></tr>
+<tr><td class="h"><a name="1003"></a>1003</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1004"></a>1004</td><td></td><td></td><td></td><td></td><td class="s">=head2 max_size</td></tr>
+<tr><td class="h"><a name="1005"></a>1005</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1006"></a>1006</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;max_size([$maximum_string_size])</td></tr>
+<tr><td class="h"><a name="1007"></a>1007</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="1008"></a>1008</td><td></td><td></td><td></td><td></td><td class="s">    $max_size = $json-&gt;get_max_size</td></tr>
+<tr><td class="h"><a name="1009"></a>1009</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1010"></a>1010</td><td></td><td></td><td></td><td></td><td class="s">Set the maximum length a JSON text may have (in bytes) where decoding is</td></tr>
+<tr><td class="h"><a name="1011"></a>1011</td><td></td><td></td><td></td><td></td><td class="s">being attempted. The default is C&lt;0&gt;, meaning no limit. When C&lt;decode&gt;</td></tr>
+<tr><td class="h"><a name="1012"></a>1012</td><td></td><td></td><td></td><td></td><td class="s">is called on a string that is longer then this many bytes, it will not</td></tr>
+<tr><td class="h"><a name="1013"></a>1013</td><td></td><td></td><td></td><td></td><td class="s">attempt to decode the string but throw an exception. This setting has no</td></tr>
+<tr><td class="h"><a name="1014"></a>1014</td><td></td><td></td><td></td><td></td><td class="s">effect on C&lt;encode&gt; (yet).</td></tr>
+<tr><td class="h"><a name="1015"></a>1015</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1016"></a>1016</td><td></td><td></td><td></td><td></td><td class="s">If no argument is given, the limit check will be deactivated (same as when</td></tr>
+<tr><td class="h"><a name="1017"></a>1017</td><td></td><td></td><td></td><td></td><td class="s">C&lt;0&gt; is specified).</td></tr>
+<tr><td class="h"><a name="1018"></a>1018</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1019"></a>1019</td><td></td><td></td><td></td><td></td><td class="s">See L&lt;JSON::XS/SECURITY CONSIDERATIONS&gt;, below, for more info on why this is useful.</td></tr>
+<tr><td class="h"><a name="1020"></a>1020</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1021"></a>1021</td><td></td><td></td><td></td><td></td><td class="s">=head2 encode</td></tr>
+<tr><td class="h"><a name="1022"></a>1022</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1023"></a>1023</td><td></td><td></td><td></td><td></td><td class="s">    $json_text = $json-&gt;encode($perl_scalar)</td></tr>
+<tr><td class="h"><a name="1024"></a>1024</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1025"></a>1025</td><td></td><td></td><td></td><td></td><td class="s">Converts the given Perl data structure (a simple scalar or a reference</td></tr>
+<tr><td class="h"><a name="1026"></a>1026</td><td></td><td></td><td></td><td></td><td class="s">to a hash or array) to its JSON representation. Simple scalars will be</td></tr>
+<tr><td class="h"><a name="1027"></a>1027</td><td></td><td></td><td></td><td></td><td class="s">converted into JSON string or number sequences, while references to arrays</td></tr>
+<tr><td class="h"><a name="1028"></a>1028</td><td></td><td></td><td></td><td></td><td class="s">become JSON arrays and references to hashes become JSON objects. Undefined</td></tr>
+<tr><td class="h"><a name="1029"></a>1029</td><td></td><td></td><td></td><td></td><td class="s">Perl values (e.g. C&lt;undef&gt;) become JSON C&lt;null&gt; values.</td></tr>
+<tr><td class="h"><a name="1030"></a>1030</td><td></td><td></td><td></td><td></td><td class="s">References to the integers C&lt;0&gt; and C&lt;1&gt; are converted into C&lt;true&gt; and C&lt;false&gt;.</td></tr>
+<tr><td class="h"><a name="1031"></a>1031</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1032"></a>1032</td><td></td><td></td><td></td><td></td><td class="s">=head2 decode</td></tr>
+<tr><td class="h"><a name="1033"></a>1033</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1034"></a>1034</td><td></td><td></td><td></td><td></td><td class="s">    $perl_scalar = $json-&gt;decode($json_text)</td></tr>
+<tr><td class="h"><a name="1035"></a>1035</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1036"></a>1036</td><td></td><td></td><td></td><td></td><td class="s">The opposite of C&lt;encode&gt;: expects a JSON text and tries to parse it,</td></tr>
+<tr><td class="h"><a name="1037"></a>1037</td><td></td><td></td><td></td><td></td><td class="s">returning the resulting simple scalar or reference. Croaks on error.</td></tr>
+<tr><td class="h"><a name="1038"></a>1038</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1039"></a>1039</td><td></td><td></td><td></td><td></td><td class="s">JSON numbers and strings become simple Perl scalars. JSON arrays become</td></tr>
+<tr><td class="h"><a name="1040"></a>1040</td><td></td><td></td><td></td><td></td><td class="s">Perl arrayrefs and JSON objects become Perl hashrefs. C&lt;true&gt; becomes</td></tr>
+<tr><td class="h"><a name="1041"></a>1041</td><td></td><td></td><td></td><td></td><td class="s">C&lt;1&gt; (C&lt;JSON::true&gt;), C&lt;false&gt; becomes C&lt;0&gt; (C&lt;JSON::false&gt;) and</td></tr>
+<tr><td class="h"><a name="1042"></a>1042</td><td></td><td></td><td></td><td></td><td class="s">C&lt;null&gt; becomes C&lt;undef&gt;.</td></tr>
+<tr><td class="h"><a name="1043"></a>1043</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1044"></a>1044</td><td></td><td></td><td></td><td></td><td class="s">=head2 decode_prefix</td></tr>
+<tr><td class="h"><a name="1045"></a>1045</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1046"></a>1046</td><td></td><td></td><td></td><td></td><td class="s">    ($perl_scalar, $characters) = $json-&gt;decode_prefix($json_text)</td></tr>
+<tr><td class="h"><a name="1047"></a>1047</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1048"></a>1048</td><td></td><td></td><td></td><td></td><td class="s">This works like the C&lt;decode&gt; method, but instead of raising an exception</td></tr>
+<tr><td class="h"><a name="1049"></a>1049</td><td></td><td></td><td></td><td></td><td class="s">when there is trailing garbage after the first JSON object, it will</td></tr>
+<tr><td class="h"><a name="1050"></a>1050</td><td></td><td></td><td></td><td></td><td class="s">silently stop parsing there and return the number of characters consumed</td></tr>
+<tr><td class="h"><a name="1051"></a>1051</td><td></td><td></td><td></td><td></td><td class="s">so far.</td></tr>
+<tr><td class="h"><a name="1052"></a>1052</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1053"></a>1053</td><td></td><td></td><td></td><td></td><td class="s">   JSON-&gt;new-&gt;decode_prefix (&quot;[1] the tail&quot;)</td></tr>
+<tr><td class="h"><a name="1054"></a>1054</td><td></td><td></td><td></td><td></td><td class="s">   =&gt; ([], 3)</td></tr>
+<tr><td class="h"><a name="1055"></a>1055</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1056"></a>1056</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::XS/OBJECT-ORIENTED INTERFACE&gt;</td></tr>
+<tr><td class="h"><a name="1057"></a>1057</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1058"></a>1058</td><td></td><td></td><td></td><td></td><td class="s">=head2 property</td></tr>
+<tr><td class="h"><a name="1059"></a>1059</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1060"></a>1060</td><td></td><td></td><td></td><td></td><td class="s">    $boolean = $json-&gt;property($property_name)</td></tr>
+<tr><td class="h"><a name="1061"></a>1061</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1062"></a>1062</td><td></td><td></td><td></td><td></td><td class="s">Returns a boolean value about above some properties.</td></tr>
+<tr><td class="h"><a name="1063"></a>1063</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1064"></a>1064</td><td></td><td></td><td></td><td></td><td class="s">The available properties are C&lt;ascii&gt;, C&lt;latin1&gt;, C&lt;utf8&gt;,</td></tr>
+<tr><td class="h"><a name="1065"></a>1065</td><td></td><td></td><td></td><td></td><td class="s">C&lt;indent&gt;,C&lt;space_before&gt;, C&lt;space_after&gt;, C&lt;relaxed&gt;, C&lt;canonical&gt;,</td></tr>
+<tr><td class="h"><a name="1066"></a>1066</td><td></td><td></td><td></td><td></td><td class="s">C&lt;allow_nonref&gt;, C&lt;allow_unknown&gt;, C&lt;allow_blessed&gt;, C&lt;convert_blessed&gt;,</td></tr>
+<tr><td class="h"><a name="1067"></a>1067</td><td></td><td></td><td></td><td></td><td class="s">C&lt;shrink&gt;, C&lt;max_depth&gt; and C&lt;max_size&gt;.</td></tr>
+<tr><td class="h"><a name="1068"></a>1068</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1069"></a>1069</td><td></td><td></td><td></td><td></td><td class="s">   $boolean = $json-&gt;property('utf8');</td></tr>
+<tr><td class="h"><a name="1070"></a>1070</td><td></td><td></td><td></td><td></td><td class="s">    =&gt; 0</td></tr>
+<tr><td class="h"><a name="1071"></a>1071</td><td></td><td></td><td></td><td></td><td class="s">   $json-&gt;utf8;</td></tr>
+<tr><td class="h"><a name="1072"></a>1072</td><td></td><td></td><td></td><td></td><td class="s">   $boolean = $json-&gt;property('utf8');</td></tr>
+<tr><td class="h"><a name="1073"></a>1073</td><td></td><td></td><td></td><td></td><td class="s">    =&gt; 1</td></tr>
+<tr><td class="h"><a name="1074"></a>1074</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1075"></a>1075</td><td></td><td></td><td></td><td></td><td class="s">Sets the property with a given boolean value.</td></tr>
+<tr><td class="h"><a name="1076"></a>1076</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1077"></a>1077</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;property($property_name =&gt; $boolean);</td></tr>
+<tr><td class="h"><a name="1078"></a>1078</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1079"></a>1079</td><td></td><td></td><td></td><td></td><td class="s">With no argumnt, it returns all the above properties as a hash reference.</td></tr>
+<tr><td class="h"><a name="1080"></a>1080</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1081"></a>1081</td><td></td><td></td><td></td><td></td><td class="s">    $flag_hashref = $json-&gt;property();</td></tr>
+<tr><td class="h"><a name="1082"></a>1082</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1083"></a>1083</td><td></td><td></td><td></td><td></td><td class="s">=head1 INCREMENTAL PARSING</td></tr>
+<tr><td class="h"><a name="1084"></a>1084</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1085"></a>1085</td><td></td><td></td><td></td><td></td><td class="s">Most of this section are copied and modified from L&lt;JSON::XS/INCREMENTAL PARSING&gt;.</td></tr>
+<tr><td class="h"><a name="1086"></a>1086</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1087"></a>1087</td><td></td><td></td><td></td><td></td><td class="s">In some cases, there is the need for incremental parsing of JSON texts.</td></tr>
+<tr><td class="h"><a name="1088"></a>1088</td><td></td><td></td><td></td><td></td><td class="s">This module does allow you to parse a JSON stream incrementally.</td></tr>
+<tr><td class="h"><a name="1089"></a>1089</td><td></td><td></td><td></td><td></td><td class="s">It does so by accumulating text until it has a full JSON object, which</td></tr>
+<tr><td class="h"><a name="1090"></a>1090</td><td></td><td></td><td></td><td></td><td class="s">it then can decode. This process is similar to using C&lt;decode_prefix&gt;</td></tr>
+<tr><td class="h"><a name="1091"></a>1091</td><td></td><td></td><td></td><td></td><td class="s">to see if a full JSON object is available, but is much more efficient</td></tr>
+<tr><td class="h"><a name="1092"></a>1092</td><td></td><td></td><td></td><td></td><td class="s">(and can be implemented with a minimum of method calls).</td></tr>
+<tr><td class="h"><a name="1093"></a>1093</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1094"></a>1094</td><td></td><td></td><td></td><td></td><td class="s">The backend module will only attempt to parse the JSON text once it is sure it</td></tr>
+<tr><td class="h"><a name="1095"></a>1095</td><td></td><td></td><td></td><td></td><td class="s">has enough text to get a decisive result, using a very simple but</td></tr>
+<tr><td class="h"><a name="1096"></a>1096</td><td></td><td></td><td></td><td></td><td class="s">truly incremental parser. This means that it sometimes won't stop as</td></tr>
+<tr><td class="h"><a name="1097"></a>1097</td><td></td><td></td><td></td><td></td><td class="s">early as the full parser, for example, it doesn't detect parenthese</td></tr>
+<tr><td class="h"><a name="1098"></a>1098</td><td></td><td></td><td></td><td></td><td class="s">mismatches. The only thing it guarantees is that it starts decoding as</td></tr>
+<tr><td class="h"><a name="1099"></a>1099</td><td></td><td></td><td></td><td></td><td class="s">soon as a syntactically valid JSON text has been seen. This means you need</td></tr>
+<tr><td class="h"><a name="1100"></a>1100</td><td></td><td></td><td></td><td></td><td class="s">to set resource limits (e.g. C&lt;max_size&gt;) to ensure the parser will stop</td></tr>
+<tr><td class="h"><a name="1101"></a>1101</td><td></td><td></td><td></td><td></td><td class="s">parsing in the presence if syntax errors.</td></tr>
+<tr><td class="h"><a name="1102"></a>1102</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1103"></a>1103</td><td></td><td></td><td></td><td></td><td class="s">The following methods implement this incremental parser.</td></tr>
+<tr><td class="h"><a name="1104"></a>1104</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1105"></a>1105</td><td></td><td></td><td></td><td></td><td class="s">=head2 incr_parse</td></tr>
+<tr><td class="h"><a name="1106"></a>1106</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1107"></a>1107</td><td></td><td></td><td></td><td></td><td class="s">    $json-&gt;incr_parse( [$string] ) # void context</td></tr>
+<tr><td class="h"><a name="1108"></a>1108</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="1109"></a>1109</td><td></td><td></td><td></td><td></td><td class="s">    $obj_or_undef = $json-&gt;incr_parse( [$string] ) # scalar context</td></tr>
+<tr><td class="h"><a name="1110"></a>1110</td><td></td><td></td><td></td><td></td><td class="s">    </td></tr>
+<tr><td class="h"><a name="1111"></a>1111</td><td></td><td></td><td></td><td></td><td class="s">    @obj_or_empty = $json-&gt;incr_parse( [$string] ) # list context</td></tr>
+<tr><td class="h"><a name="1112"></a>1112</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1113"></a>1113</td><td></td><td></td><td></td><td></td><td class="s">This is the central parsing function. It can both append new text and</td></tr>
+<tr><td class="h"><a name="1114"></a>1114</td><td></td><td></td><td></td><td></td><td class="s">extract objects from the stream accumulated so far (both of these</td></tr>
+<tr><td class="h"><a name="1115"></a>1115</td><td></td><td></td><td></td><td></td><td class="s">functions are optional).</td></tr>
+<tr><td class="h"><a name="1116"></a>1116</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1117"></a>1117</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$string&gt; is given, then this string is appended to the already</td></tr>
+<tr><td class="h"><a name="1118"></a>1118</td><td></td><td></td><td></td><td></td><td class="s">existing JSON fragment stored in the C&lt;$json&gt; object.</td></tr>
+<tr><td class="h"><a name="1119"></a>1119</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1120"></a>1120</td><td></td><td></td><td></td><td></td><td class="s">After that, if the function is called in void context, it will simply</td></tr>
+<tr><td class="h"><a name="1121"></a>1121</td><td></td><td></td><td></td><td></td><td class="s">return without doing anything further. This can be used to add more text</td></tr>
+<tr><td class="h"><a name="1122"></a>1122</td><td></td><td></td><td></td><td></td><td class="s">in as many chunks as you want.</td></tr>
+<tr><td class="h"><a name="1123"></a>1123</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1124"></a>1124</td><td></td><td></td><td></td><td></td><td class="s">If the method is called in scalar context, then it will try to extract</td></tr>
+<tr><td class="h"><a name="1125"></a>1125</td><td></td><td></td><td></td><td></td><td class="s">exactly I&lt;one&gt; JSON object. If that is successful, it will return this</td></tr>
+<tr><td class="h"><a name="1126"></a>1126</td><td></td><td></td><td></td><td></td><td class="s">object, otherwise it will return C&lt;undef&gt;. If there is a parse error,</td></tr>
+<tr><td class="h"><a name="1127"></a>1127</td><td></td><td></td><td></td><td></td><td class="s">this method will croak just as C&lt;decode&gt; would do (one can then use</td></tr>
+<tr><td class="h"><a name="1128"></a>1128</td><td></td><td></td><td></td><td></td><td class="s">C&lt;incr_skip&gt; to skip the errornous part). This is the most common way of</td></tr>
+<tr><td class="h"><a name="1129"></a>1129</td><td></td><td></td><td></td><td></td><td class="s">using the method.</td></tr>
+<tr><td class="h"><a name="1130"></a>1130</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1131"></a>1131</td><td></td><td></td><td></td><td></td><td class="s">And finally, in list context, it will try to extract as many objects</td></tr>
+<tr><td class="h"><a name="1132"></a>1132</td><td></td><td></td><td></td><td></td><td class="s">from the stream as it can find and return them, or the empty list</td></tr>
+<tr><td class="h"><a name="1133"></a>1133</td><td></td><td></td><td></td><td></td><td class="s">otherwise. For this to work, there must be no separators between the JSON</td></tr>
+<tr><td class="h"><a name="1134"></a>1134</td><td></td><td></td><td></td><td></td><td class="s">objects or arrays, instead they must be concatenated back-to-back. If</td></tr>
+<tr><td class="h"><a name="1135"></a>1135</td><td></td><td></td><td></td><td></td><td class="s">an error occurs, an exception will be raised as in the scalar context</td></tr>
+<tr><td class="h"><a name="1136"></a>1136</td><td></td><td></td><td></td><td></td><td class="s">case. Note that in this case, any previously-parsed JSON texts will be</td></tr>
+<tr><td class="h"><a name="1137"></a>1137</td><td></td><td></td><td></td><td></td><td class="s">lost.</td></tr>
+<tr><td class="h"><a name="1138"></a>1138</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1139"></a>1139</td><td></td><td></td><td></td><td></td><td class="s">Example: Parse some JSON arrays/objects in a given string and return them.</td></tr>
+<tr><td class="h"><a name="1140"></a>1140</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1141"></a>1141</td><td></td><td></td><td></td><td></td><td class="s">    my @objs = JSON-&gt;new-&gt;incr_parse (&quot;[5][7][1,2]&quot;);</td></tr>
+<tr><td class="h"><a name="1142"></a>1142</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1143"></a>1143</td><td></td><td></td><td></td><td></td><td class="s">=head2 incr_text</td></tr>
+<tr><td class="h"><a name="1144"></a>1144</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1145"></a>1145</td><td></td><td></td><td></td><td></td><td class="s">    $lvalue_string = $json-&gt;incr_text</td></tr>
+<tr><td class="h"><a name="1146"></a>1146</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1147"></a>1147</td><td></td><td></td><td></td><td></td><td class="s">This method returns the currently stored JSON fragment as an lvalue, that</td></tr>
+<tr><td class="h"><a name="1148"></a>1148</td><td></td><td></td><td></td><td></td><td class="s">is, you can manipulate it. This I&lt;only&gt; works when a preceding call to</td></tr>
+<tr><td class="h"><a name="1149"></a>1149</td><td></td><td></td><td></td><td></td><td class="s">C&lt;incr_parse&gt; in I&lt;scalar context&gt; successfully returned an object. Under</td></tr>
+<tr><td class="h"><a name="1150"></a>1150</td><td></td><td></td><td></td><td></td><td class="s">all other circumstances you must not call this function (I mean it.</td></tr>
+<tr><td class="h"><a name="1151"></a>1151</td><td></td><td></td><td></td><td></td><td class="s">although in simple tests it might actually work, it I&lt;will&gt; fail under</td></tr>
+<tr><td class="h"><a name="1152"></a>1152</td><td></td><td></td><td></td><td></td><td class="s">real world conditions). As a special exception, you can also call this</td></tr>
+<tr><td class="h"><a name="1153"></a>1153</td><td></td><td></td><td></td><td></td><td class="s">method before having parsed anything.</td></tr>
+<tr><td class="h"><a name="1154"></a>1154</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1155"></a>1155</td><td></td><td></td><td></td><td></td><td class="s">This function is useful in two cases: a) finding the trailing text after a</td></tr>
+<tr><td class="h"><a name="1156"></a>1156</td><td></td><td></td><td></td><td></td><td class="s">JSON object or b) parsing multiple JSON objects separated by non-JSON text</td></tr>
+<tr><td class="h"><a name="1157"></a>1157</td><td></td><td></td><td></td><td></td><td class="s">(such as commas).</td></tr>
+<tr><td class="h"><a name="1158"></a>1158</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1159"></a>1159</td><td></td><td></td><td></td><td></td><td class="s">    $json-&gt;incr_text =~ s/\s*,\s*//;</td></tr>
+<tr><td class="h"><a name="1160"></a>1160</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1161"></a>1161</td><td></td><td></td><td></td><td></td><td class="s">In Perl 5.005, C&lt;lvalue&gt; attribute is not available.</td></tr>
+<tr><td class="h"><a name="1162"></a>1162</td><td></td><td></td><td></td><td></td><td class="s">You must write codes like the below:</td></tr>
+<tr><td class="h"><a name="1163"></a>1163</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1164"></a>1164</td><td></td><td></td><td></td><td></td><td class="s">    $string = $json-&gt;incr_text;</td></tr>
+<tr><td class="h"><a name="1165"></a>1165</td><td></td><td></td><td></td><td></td><td class="s">    $string =~ s/\s*,\s*//;</td></tr>
+<tr><td class="h"><a name="1166"></a>1166</td><td></td><td></td><td></td><td></td><td class="s">    $json-&gt;incr_text( $string );</td></tr>
+<tr><td class="h"><a name="1167"></a>1167</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1168"></a>1168</td><td></td><td></td><td></td><td></td><td class="s">=head2 incr_skip</td></tr>
+<tr><td class="h"><a name="1169"></a>1169</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1170"></a>1170</td><td></td><td></td><td></td><td></td><td class="s">    $json-&gt;incr_skip</td></tr>
+<tr><td class="h"><a name="1171"></a>1171</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1172"></a>1172</td><td></td><td></td><td></td><td></td><td class="s">This will reset the state of the incremental parser and will remove the</td></tr>
+<tr><td class="h"><a name="1173"></a>1173</td><td></td><td></td><td></td><td></td><td class="s">parsed text from the input buffer. This is useful after C&lt;incr_parse&gt;</td></tr>
+<tr><td class="h"><a name="1174"></a>1174</td><td></td><td></td><td></td><td></td><td class="s">died, in which case the input buffer and incremental parser state is left</td></tr>
+<tr><td class="h"><a name="1175"></a>1175</td><td></td><td></td><td></td><td></td><td class="s">unchanged, to skip the text parsed so far and to reset the parse state.</td></tr>
+<tr><td class="h"><a name="1176"></a>1176</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1177"></a>1177</td><td></td><td></td><td></td><td></td><td class="s">=head2 incr_reset</td></tr>
+<tr><td class="h"><a name="1178"></a>1178</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1179"></a>1179</td><td></td><td></td><td></td><td></td><td class="s">    $json-&gt;incr_reset</td></tr>
+<tr><td class="h"><a name="1180"></a>1180</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1181"></a>1181</td><td></td><td></td><td></td><td></td><td class="s">This completely resets the incremental parser, that is, after this call,</td></tr>
+<tr><td class="h"><a name="1182"></a>1182</td><td></td><td></td><td></td><td></td><td class="s">it will be as if the parser had never parsed anything.</td></tr>
+<tr><td class="h"><a name="1183"></a>1183</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1184"></a>1184</td><td></td><td></td><td></td><td></td><td class="s">This is useful if you want ot repeatedly parse JSON objects and want to</td></tr>
+<tr><td class="h"><a name="1185"></a>1185</td><td></td><td></td><td></td><td></td><td class="s">ignore any trailing data, which means you have to reset the parser after</td></tr>
+<tr><td class="h"><a name="1186"></a>1186</td><td></td><td></td><td></td><td></td><td class="s">each successful decode.</td></tr>
+<tr><td class="h"><a name="1187"></a>1187</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1188"></a>1188</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::XS/INCREMENTAL PARSING&gt; for examples.</td></tr>
+<tr><td class="h"><a name="1189"></a>1189</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1190"></a>1190</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1191"></a>1191</td><td></td><td></td><td></td><td></td><td class="s">=head1 JSON::PP SUPPORT METHODS</td></tr>
+<tr><td class="h"><a name="1192"></a>1192</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1193"></a>1193</td><td></td><td></td><td></td><td></td><td class="s">The below methods are JSON::PP own methods, so when C&lt;JSON&gt; works</td></tr>
+<tr><td class="h"><a name="1194"></a>1194</td><td></td><td></td><td></td><td></td><td class="s">with JSON::PP (i.e. the created object is a JSON::PP object), available.</td></tr>
+<tr><td class="h"><a name="1195"></a>1195</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::PP/JSON::PP OWN METHODS&gt; in detail.</td></tr>
+<tr><td class="h"><a name="1196"></a>1196</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1197"></a>1197</td><td></td><td></td><td></td><td></td><td class="s">If you use C&lt;JSON&gt; with additonal C&lt;-support_by_pp&gt;, some methods</td></tr>
+<tr><td class="h"><a name="1198"></a>1198</td><td></td><td></td><td></td><td></td><td class="s">are available even with JSON::XS. See to L&lt;USE PP FEATURES EVEN THOUGH XS BACKEND&gt;.</td></tr>
+<tr><td class="h"><a name="1199"></a>1199</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1200"></a>1200</td><td></td><td></td><td></td><td></td><td class="s">   BEING { $ENV{PERL_JSON_BACKEND} = 'JSON::XS' }</td></tr>
+<tr><td class="h"><a name="1201"></a>1201</td><td></td><td></td><td></td><td></td><td class="s">   </td></tr>
+<tr><td class="h"><a name="1202"></a>1202</td><td></td><td></td><td></td><td></td><td class="s">   use JSON -support_by_pp;</td></tr>
+<tr><td class="h"><a name="1203"></a>1203</td><td></td><td></td><td></td><td></td><td class="s">   </td></tr>
+<tr><td class="h"><a name="1204"></a>1204</td><td></td><td></td><td></td><td></td><td class="s">   my $json = new JSON;</td></tr>
+<tr><td class="h"><a name="1205"></a>1205</td><td></td><td></td><td></td><td></td><td class="s">   $json-&gt;allow_nonref-&gt;escape_slash-&gt;encode(&quot;/&quot;);</td></tr>
+<tr><td class="h"><a name="1206"></a>1206</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1207"></a>1207</td><td></td><td></td><td></td><td></td><td class="s">   # functional interfaces too.</td></tr>
+<tr><td class="h"><a name="1208"></a>1208</td><td></td><td></td><td></td><td></td><td class="s">   print to_json([&quot;/&quot;], {escape_slash =&gt; 1});</td></tr>
+<tr><td class="h"><a name="1209"></a>1209</td><td></td><td></td><td></td><td></td><td class="s">   print from_json('[&quot;foo&quot;]', {utf8 =&gt; 1});</td></tr>
+<tr><td class="h"><a name="1210"></a>1210</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1211"></a>1211</td><td></td><td></td><td></td><td></td><td class="s">If you do not want to all functions but C&lt;-support_by_pp&gt;,</td></tr>
+<tr><td class="h"><a name="1212"></a>1212</td><td></td><td></td><td></td><td></td><td class="s">use C&lt;-no_export&gt;.</td></tr>
+<tr><td class="h"><a name="1213"></a>1213</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1214"></a>1214</td><td></td><td></td><td></td><td></td><td class="s">   use JSON -support_by_pp, -no_export;</td></tr>
+<tr><td class="h"><a name="1215"></a>1215</td><td></td><td></td><td></td><td></td><td class="s">   # functional interfaces are not exported.</td></tr>
+<tr><td class="h"><a name="1216"></a>1216</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1217"></a>1217</td><td></td><td></td><td></td><td></td><td class="s">=head2 allow_singlequote</td></tr>
+<tr><td class="h"><a name="1218"></a>1218</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1219"></a>1219</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;allow_singlequote([$enable])</td></tr>
+<tr><td class="h"><a name="1220"></a>1220</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1221"></a>1221</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is true (or missing), then C&lt;decode&gt; will accept</td></tr>
+<tr><td class="h"><a name="1222"></a>1222</td><td></td><td></td><td></td><td></td><td class="s">any JSON strings quoted by single quotations that are invalid JSON</td></tr>
+<tr><td class="h"><a name="1223"></a>1223</td><td></td><td></td><td></td><td></td><td class="s">format.</td></tr>
+<tr><td class="h"><a name="1224"></a>1224</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1225"></a>1225</td><td></td><td></td><td></td><td></td><td class="s">    $json-&gt;allow_singlequote-&gt;decode({&quot;foo&quot;:'bar'});</td></tr>
+<tr><td class="h"><a name="1226"></a>1226</td><td></td><td></td><td></td><td></td><td class="s">    $json-&gt;allow_singlequote-&gt;decode({'foo':&quot;bar&quot;});</td></tr>
+<tr><td class="h"><a name="1227"></a>1227</td><td></td><td></td><td></td><td></td><td class="s">    $json-&gt;allow_singlequote-&gt;decode({'foo':'bar'});</td></tr>
+<tr><td class="h"><a name="1228"></a>1228</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1229"></a>1229</td><td></td><td></td><td></td><td></td><td class="s">As same as the C&lt;relaxed&gt; option, this option may be used to parse</td></tr>
+<tr><td class="h"><a name="1230"></a>1230</td><td></td><td></td><td></td><td></td><td class="s">application-specific files written by humans.</td></tr>
+<tr><td class="h"><a name="1231"></a>1231</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1232"></a>1232</td><td></td><td></td><td></td><td></td><td class="s">=head2 allow_barekey</td></tr>
+<tr><td class="h"><a name="1233"></a>1233</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1234"></a>1234</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;allow_barekey([$enable])</td></tr>
+<tr><td class="h"><a name="1235"></a>1235</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1236"></a>1236</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is true (or missing), then C&lt;decode&gt; will accept</td></tr>
+<tr><td class="h"><a name="1237"></a>1237</td><td></td><td></td><td></td><td></td><td class="s">bare keys of JSON object that are invalid JSON format.</td></tr>
+<tr><td class="h"><a name="1238"></a>1238</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1239"></a>1239</td><td></td><td></td><td></td><td></td><td class="s">As same as the C&lt;relaxed&gt; option, this option may be used to parse</td></tr>
+<tr><td class="h"><a name="1240"></a>1240</td><td></td><td></td><td></td><td></td><td class="s">application-specific files written by humans.</td></tr>
+<tr><td class="h"><a name="1241"></a>1241</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1242"></a>1242</td><td></td><td></td><td></td><td></td><td class="s">    $json-&gt;allow_barekey-&gt;decode('{foo:&quot;bar&quot;}');</td></tr>
+<tr><td class="h"><a name="1243"></a>1243</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1244"></a>1244</td><td></td><td></td><td></td><td></td><td class="s">=head2 allow_bignum</td></tr>
+<tr><td class="h"><a name="1245"></a>1245</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1246"></a>1246</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;allow_bignum([$enable])</td></tr>
+<tr><td class="h"><a name="1247"></a>1247</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1248"></a>1248</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is true (or missing), then C&lt;decode&gt; will convert</td></tr>
+<tr><td class="h"><a name="1249"></a>1249</td><td></td><td></td><td></td><td></td><td class="s">the big integer Perl cannot handle as integer into a L&lt;Math::BigInt&gt;</td></tr>
+<tr><td class="h"><a name="1250"></a>1250</td><td></td><td></td><td></td><td></td><td class="s">object and convert a floating number (any) into a L&lt;Math::BigFloat&gt;.</td></tr>
+<tr><td class="h"><a name="1251"></a>1251</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1252"></a>1252</td><td></td><td></td><td></td><td></td><td class="s">On the contary, C&lt;encode&gt; converts C&lt;Math::BigInt&gt; objects and C&lt;Math::BigFloat&gt;</td></tr>
+<tr><td class="h"><a name="1253"></a>1253</td><td></td><td></td><td></td><td></td><td class="s">objects into JSON numbers with C&lt;allow_blessed&gt; enable.</td></tr>
+<tr><td class="h"><a name="1254"></a>1254</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1255"></a>1255</td><td></td><td></td><td></td><td></td><td class="s">   $json-&gt;allow_nonref-&gt;allow_blessed-&gt;allow_bignum;</td></tr>
+<tr><td class="h"><a name="1256"></a>1256</td><td></td><td></td><td></td><td></td><td class="s">   $bigfloat = $json-&gt;decode('2.000000000000000000000000001');</td></tr>
+<tr><td class="h"><a name="1257"></a>1257</td><td></td><td></td><td></td><td></td><td class="s">   print $json-&gt;encode($bigfloat);</td></tr>
+<tr><td class="h"><a name="1258"></a>1258</td><td></td><td></td><td></td><td></td><td class="s">   # =&gt; 2.000000000000000000000000001</td></tr>
+<tr><td class="h"><a name="1259"></a>1259</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1260"></a>1260</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;MAPPING&gt; aboout the conversion of JSON number.</td></tr>
+<tr><td class="h"><a name="1261"></a>1261</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1262"></a>1262</td><td></td><td></td><td></td><td></td><td class="s">=head2 loose</td></tr>
+<tr><td class="h"><a name="1263"></a>1263</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1264"></a>1264</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;loose([$enable])</td></tr>
+<tr><td class="h"><a name="1265"></a>1265</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1266"></a>1266</td><td></td><td></td><td></td><td></td><td class="s">The unescaped [\x00-\x1f\x22\x2f\x5c] strings are invalid in JSON strings</td></tr>
+<tr><td class="h"><a name="1267"></a>1267</td><td></td><td></td><td></td><td></td><td class="s">and the module doesn't allow to C&lt;decode&gt; to these (except for \x2f).</td></tr>
+<tr><td class="h"><a name="1268"></a>1268</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is true (or missing), then C&lt;decode&gt;  will accept these</td></tr>
+<tr><td class="h"><a name="1269"></a>1269</td><td></td><td></td><td></td><td></td><td class="s">unescaped strings.</td></tr>
+<tr><td class="h"><a name="1270"></a>1270</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1271"></a>1271</td><td></td><td></td><td></td><td></td><td class="s">    $json-&gt;loose-&gt;decode(qq|[&quot;abc</td></tr>
+<tr><td class="h"><a name="1272"></a>1272</td><td></td><td></td><td></td><td></td><td class="s">                                   def&quot;]|);</td></tr>
+<tr><td class="h"><a name="1273"></a>1273</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1274"></a>1274</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::PP/JSON::PP OWN METHODS&gt;.</td></tr>
+<tr><td class="h"><a name="1275"></a>1275</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1276"></a>1276</td><td></td><td></td><td></td><td></td><td class="s">=head2 escape_slash</td></tr>
+<tr><td class="h"><a name="1277"></a>1277</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1278"></a>1278</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;escape_slash([$enable])</td></tr>
+<tr><td class="h"><a name="1279"></a>1279</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1280"></a>1280</td><td></td><td></td><td></td><td></td><td class="s">According to JSON Grammar, I&lt;slash&gt; (U+002F) is escaped. But by default</td></tr>
+<tr><td class="h"><a name="1281"></a>1281</td><td></td><td></td><td></td><td></td><td class="s">JSON backend modules encode strings without escaping slash.</td></tr>
+<tr><td class="h"><a name="1282"></a>1282</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1283"></a>1283</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;$enable&gt; is true (or missing), then C&lt;encode&gt; will escape slashes.</td></tr>
+<tr><td class="h"><a name="1284"></a>1284</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1285"></a>1285</td><td></td><td></td><td></td><td></td><td class="s">=head2 indent_length</td></tr>
+<tr><td class="h"><a name="1286"></a>1286</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1287"></a>1287</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;indent_length($length)</td></tr>
+<tr><td class="h"><a name="1288"></a>1288</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1289"></a>1289</td><td></td><td></td><td></td><td></td><td class="s">With JSON::XS, The indent space length is 3 and cannot be changed.</td></tr>
+<tr><td class="h"><a name="1290"></a>1290</td><td></td><td></td><td></td><td></td><td class="s">With JSON::PP, it sets the indent space length with the given $length.</td></tr>
+<tr><td class="h"><a name="1291"></a>1291</td><td></td><td></td><td></td><td></td><td class="s">The default is 3. The acceptable range is 0 to 15.</td></tr>
+<tr><td class="h"><a name="1292"></a>1292</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1293"></a>1293</td><td></td><td></td><td></td><td></td><td class="s">=head2 sort_by</td></tr>
+<tr><td class="h"><a name="1294"></a>1294</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1295"></a>1295</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;sort_by($function_name)</td></tr>
+<tr><td class="h"><a name="1296"></a>1296</td><td></td><td></td><td></td><td></td><td class="s">    $json = $json-&gt;sort_by($subroutine_ref)</td></tr>
+<tr><td class="h"><a name="1297"></a>1297</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1298"></a>1298</td><td></td><td></td><td></td><td></td><td class="s">If $function_name or $subroutine_ref are set, its sort routine are used.</td></tr>
+<tr><td class="h"><a name="1299"></a>1299</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1300"></a>1300</td><td></td><td></td><td></td><td></td><td class="s">   $js = $pc-&gt;sort_by(sub { $JSON::PP::a cmp $JSON::PP::b })-&gt;encode($obj);</td></tr>
+<tr><td class="h"><a name="1301"></a>1301</td><td></td><td></td><td></td><td></td><td class="s">   # is($js, q|{&quot;a&quot;:1,&quot;b&quot;:2,&quot;c&quot;:3,&quot;d&quot;:4,&quot;e&quot;:5,&quot;f&quot;:6,&quot;g&quot;:7,&quot;h&quot;:8,&quot;i&quot;:9}|);</td></tr>
+<tr><td class="h"><a name="1302"></a>1302</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1303"></a>1303</td><td></td><td></td><td></td><td></td><td class="s">   $js = $pc-&gt;sort_by('own_sort')-&gt;encode($obj);</td></tr>
+<tr><td class="h"><a name="1304"></a>1304</td><td></td><td></td><td></td><td></td><td class="s">   # is($js, q|{&quot;a&quot;:1,&quot;b&quot;:2,&quot;c&quot;:3,&quot;d&quot;:4,&quot;e&quot;:5,&quot;f&quot;:6,&quot;g&quot;:7,&quot;h&quot;:8,&quot;i&quot;:9}|);</td></tr>
+<tr><td class="h"><a name="1305"></a>1305</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1306"></a>1306</td><td></td><td></td><td></td><td></td><td class="s">   sub JSON::PP::own_sort { $JSON::PP::a cmp $JSON::PP::b }</td></tr>
+<tr><td class="h"><a name="1307"></a>1307</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1308"></a>1308</td><td></td><td></td><td></td><td></td><td class="s">As the sorting routine runs in the JSON::PP scope, the given</td></tr>
+<tr><td class="h"><a name="1309"></a>1309</td><td></td><td></td><td></td><td></td><td class="s">subroutine name and the special variables C&lt;$a&gt;, C&lt;$b&gt; will begin</td></tr>
+<tr><td class="h"><a name="1310"></a>1310</td><td></td><td></td><td></td><td></td><td class="s">with 'JSON::PP::'.</td></tr>
+<tr><td class="h"><a name="1311"></a>1311</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1312"></a>1312</td><td></td><td></td><td></td><td></td><td class="s">If $integer is set, then the effect is same as C&lt;canonical&gt; on.</td></tr>
+<tr><td class="h"><a name="1313"></a>1313</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1314"></a>1314</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::PP/JSON::PP OWN METHODS&gt;.</td></tr>
+<tr><td class="h"><a name="1315"></a>1315</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1316"></a>1316</td><td></td><td></td><td></td><td></td><td class="s">=head1 MAPPING</td></tr>
+<tr><td class="h"><a name="1317"></a>1317</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1318"></a>1318</td><td></td><td></td><td></td><td></td><td class="s">This section is copied from JSON::XS and modified to C&lt;JSON&gt;.</td></tr>
+<tr><td class="h"><a name="1319"></a>1319</td><td></td><td></td><td></td><td></td><td class="s">JSON::XS and JSON::PP mapping mechanisms are almost equivalent.</td></tr>
+<tr><td class="h"><a name="1320"></a>1320</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1321"></a>1321</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::XS/MAPPING&gt;.</td></tr>
+<tr><td class="h"><a name="1322"></a>1322</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1323"></a>1323</td><td></td><td></td><td></td><td></td><td class="s">=head2 JSON -&gt; PERL</td></tr>
+<tr><td class="h"><a name="1324"></a>1324</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1325"></a>1325</td><td></td><td></td><td></td><td></td><td class="s">=over 4</td></tr>
+<tr><td class="h"><a name="1326"></a>1326</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1327"></a>1327</td><td></td><td></td><td></td><td></td><td class="s">=item object</td></tr>
+<tr><td class="h"><a name="1328"></a>1328</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1329"></a>1329</td><td></td><td></td><td></td><td></td><td class="s">A JSON object becomes a reference to a hash in Perl. No ordering of object</td></tr>
+<tr><td class="h"><a name="1330"></a>1330</td><td></td><td></td><td></td><td></td><td class="s">keys is preserved (JSON does not preserver object key ordering itself).</td></tr>
+<tr><td class="h"><a name="1331"></a>1331</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1332"></a>1332</td><td></td><td></td><td></td><td></td><td class="s">=item array</td></tr>
+<tr><td class="h"><a name="1333"></a>1333</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1334"></a>1334</td><td></td><td></td><td></td><td></td><td class="s">A JSON array becomes a reference to an array in Perl.</td></tr>
+<tr><td class="h"><a name="1335"></a>1335</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1336"></a>1336</td><td></td><td></td><td></td><td></td><td class="s">=item string</td></tr>
+<tr><td class="h"><a name="1337"></a>1337</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1338"></a>1338</td><td></td><td></td><td></td><td></td><td class="s">A JSON string becomes a string scalar in Perl - Unicode codepoints in JSON</td></tr>
+<tr><td class="h"><a name="1339"></a>1339</td><td></td><td></td><td></td><td></td><td class="s">are represented by the same codepoints in the Perl string, so no manual</td></tr>
+<tr><td class="h"><a name="1340"></a>1340</td><td></td><td></td><td></td><td></td><td class="s">decoding is necessary.</td></tr>
+<tr><td class="h"><a name="1341"></a>1341</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1342"></a>1342</td><td></td><td></td><td></td><td></td><td class="s">=item number</td></tr>
+<tr><td class="h"><a name="1343"></a>1343</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1344"></a>1344</td><td></td><td></td><td></td><td></td><td class="s">A JSON number becomes either an integer, numeric (floating point) or</td></tr>
+<tr><td class="h"><a name="1345"></a>1345</td><td></td><td></td><td></td><td></td><td class="s">string scalar in perl, depending on its range and any fractional parts. On</td></tr>
+<tr><td class="h"><a name="1346"></a>1346</td><td></td><td></td><td></td><td></td><td class="s">the Perl level, there is no difference between those as Perl handles all</td></tr>
+<tr><td class="h"><a name="1347"></a>1347</td><td></td><td></td><td></td><td></td><td class="s">the conversion details, but an integer may take slightly less memory and</td></tr>
+<tr><td class="h"><a name="1348"></a>1348</td><td></td><td></td><td></td><td></td><td class="s">might represent more values exactly than floating point numbers.</td></tr>
+<tr><td class="h"><a name="1349"></a>1349</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1350"></a>1350</td><td></td><td></td><td></td><td></td><td class="s">If the number consists of digits only, C&lt;JSON&gt; will try to represent</td></tr>
+<tr><td class="h"><a name="1351"></a>1351</td><td></td><td></td><td></td><td></td><td class="s">it as an integer value. If that fails, it will try to represent it as</td></tr>
+<tr><td class="h"><a name="1352"></a>1352</td><td></td><td></td><td></td><td></td><td class="s">a numeric (floating point) value if that is possible without loss of</td></tr>
+<tr><td class="h"><a name="1353"></a>1353</td><td></td><td></td><td></td><td></td><td class="s">precision. Otherwise it will preserve the number as a string value (in</td></tr>
+<tr><td class="h"><a name="1354"></a>1354</td><td></td><td></td><td></td><td></td><td class="s">which case you lose roundtripping ability, as the JSON number will be</td></tr>
+<tr><td class="h"><a name="1355"></a>1355</td><td></td><td></td><td></td><td></td><td class="s">re-encoded toa JSON string).</td></tr>
+<tr><td class="h"><a name="1356"></a>1356</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1357"></a>1357</td><td></td><td></td><td></td><td></td><td class="s">Numbers containing a fractional or exponential part will always be</td></tr>
+<tr><td class="h"><a name="1358"></a>1358</td><td></td><td></td><td></td><td></td><td class="s">represented as numeric (floating point) values, possibly at a loss of</td></tr>
+<tr><td class="h"><a name="1359"></a>1359</td><td></td><td></td><td></td><td></td><td class="s">precision (in which case you might lose perfect roundtripping ability, but</td></tr>
+<tr><td class="h"><a name="1360"></a>1360</td><td></td><td></td><td></td><td></td><td class="s">the JSON number will still be re-encoded as a JSON number).</td></tr>
+<tr><td class="h"><a name="1361"></a>1361</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1362"></a>1362</td><td></td><td></td><td></td><td></td><td class="s">Note that precision is not accuracy - binary floating point values cannot</td></tr>
+<tr><td class="h"><a name="1363"></a>1363</td><td></td><td></td><td></td><td></td><td class="s">represent most decimal fractions exactly, and when converting from and to</td></tr>
+<tr><td class="h"><a name="1364"></a>1364</td><td></td><td></td><td></td><td></td><td class="s">floating point, C&lt;JSON&gt; only guarantees precision up to but not including</td></tr>
+<tr><td class="h"><a name="1365"></a>1365</td><td></td><td></td><td></td><td></td><td class="s">the leats significant bit.</td></tr>
+<tr><td class="h"><a name="1366"></a>1366</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1367"></a>1367</td><td></td><td></td><td></td><td></td><td class="s">If the backend is JSON::PP and C&lt;allow_bignum&gt; is enable, the big integers </td></tr>
+<tr><td class="h"><a name="1368"></a>1368</td><td></td><td></td><td></td><td></td><td class="s">and the numeric can be optionally converted into L&lt;Math::BigInt&gt; and</td></tr>
+<tr><td class="h"><a name="1369"></a>1369</td><td></td><td></td><td></td><td></td><td class="s">L&lt;Math::BigFloat&gt; objects.</td></tr>
+<tr><td class="h"><a name="1370"></a>1370</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1371"></a>1371</td><td></td><td></td><td></td><td></td><td class="s">=item true, false</td></tr>
+<tr><td class="h"><a name="1372"></a>1372</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1373"></a>1373</td><td></td><td></td><td></td><td></td><td class="s">These JSON atoms become C&lt;JSON::true&gt; and C&lt;JSON::false&gt;,</td></tr>
+<tr><td class="h"><a name="1374"></a>1374</td><td></td><td></td><td></td><td></td><td class="s">respectively. They are overloaded to act almost exactly like the numbers</td></tr>
+<tr><td class="h"><a name="1375"></a>1375</td><td></td><td></td><td></td><td></td><td class="s">C&lt;1&gt; and C&lt;0&gt;. You can check wether a scalar is a JSON boolean by using</td></tr>
+<tr><td class="h"><a name="1376"></a>1376</td><td></td><td></td><td></td><td></td><td class="s">the C&lt;JSON::is_bool&gt; function.</td></tr>
+<tr><td class="h"><a name="1377"></a>1377</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1378"></a>1378</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;JSON::true&gt; and C&lt;JSON::false&gt; are used as strings or compared as strings,</td></tr>
+<tr><td class="h"><a name="1379"></a>1379</td><td></td><td></td><td></td><td></td><td class="s">they represent as C&lt;true&gt; and C&lt;false&gt; respectively.</td></tr>
+<tr><td class="h"><a name="1380"></a>1380</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1381"></a>1381</td><td></td><td></td><td></td><td></td><td class="s">   print JSON::true . &quot;\n&quot;;</td></tr>
+<tr><td class="h"><a name="1382"></a>1382</td><td></td><td></td><td></td><td></td><td class="s">    =&gt; true</td></tr>
+<tr><td class="h"><a name="1383"></a>1383</td><td></td><td></td><td></td><td></td><td class="s">   print JSON::true + 1;</td></tr>
+<tr><td class="h"><a name="1384"></a>1384</td><td></td><td></td><td></td><td></td><td class="s">    =&gt; 1</td></tr>
+<tr><td class="h"><a name="1385"></a>1385</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1386"></a>1386</td><td></td><td></td><td></td><td></td><td class="s">   ok(JSON::true eq 'true');</td></tr>
+<tr><td class="h"><a name="1387"></a>1387</td><td></td><td></td><td></td><td></td><td class="s">   ok(JSON::true eq  '1');</td></tr>
+<tr><td class="h"><a name="1388"></a>1388</td><td></td><td></td><td></td><td></td><td class="s">   ok(JSON::true == 1);</td></tr>
+<tr><td class="h"><a name="1389"></a>1389</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1390"></a>1390</td><td></td><td></td><td></td><td></td><td class="s">C&lt;JSON&gt; will install these missing overloading features to the backend modules.</td></tr>
+<tr><td class="h"><a name="1391"></a>1391</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1392"></a>1392</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1393"></a>1393</td><td></td><td></td><td></td><td></td><td class="s">=item null</td></tr>
+<tr><td class="h"><a name="1394"></a>1394</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1395"></a>1395</td><td></td><td></td><td></td><td></td><td class="s">A JSON null atom becomes C&lt;undef&gt; in Perl.</td></tr>
+<tr><td class="h"><a name="1396"></a>1396</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1397"></a>1397</td><td></td><td></td><td></td><td></td><td class="s">C&lt;JSON::null&gt; returns C&lt;unddef&gt;.</td></tr>
+<tr><td class="h"><a name="1398"></a>1398</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1399"></a>1399</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
+<tr><td class="h"><a name="1400"></a>1400</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1401"></a>1401</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1402"></a>1402</td><td></td><td></td><td></td><td></td><td class="s">=head2 PERL -&gt; JSON</td></tr>
+<tr><td class="h"><a name="1403"></a>1403</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1404"></a>1404</td><td></td><td></td><td></td><td></td><td class="s">The mapping from Perl to JSON is slightly more difficult, as Perl is a</td></tr>
+<tr><td class="h"><a name="1405"></a>1405</td><td></td><td></td><td></td><td></td><td class="s">truly typeless language, so we can only guess which JSON type is meant by</td></tr>
+<tr><td class="h"><a name="1406"></a>1406</td><td></td><td></td><td></td><td></td><td class="s">a Perl value.</td></tr>
+<tr><td class="h"><a name="1407"></a>1407</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1408"></a>1408</td><td></td><td></td><td></td><td></td><td class="s">=over 4</td></tr>
+<tr><td class="h"><a name="1409"></a>1409</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1410"></a>1410</td><td></td><td></td><td></td><td></td><td class="s">=item hash references</td></tr>
+<tr><td class="h"><a name="1411"></a>1411</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1412"></a>1412</td><td></td><td></td><td></td><td></td><td class="s">Perl hash references become JSON objects. As there is no inherent ordering</td></tr>
+<tr><td class="h"><a name="1413"></a>1413</td><td></td><td></td><td></td><td></td><td class="s">in hash keys (or JSON objects), they will usually be encoded in a</td></tr>
+<tr><td class="h"><a name="1414"></a>1414</td><td></td><td></td><td></td><td></td><td class="s">pseudo-random order that can change between runs of the same program but</td></tr>
+<tr><td class="h"><a name="1415"></a>1415</td><td></td><td></td><td></td><td></td><td class="s">stays generally the same within a single run of a program. C&lt;JSON&gt;</td></tr>
+<tr><td class="h"><a name="1416"></a>1416</td><td></td><td></td><td></td><td></td><td class="s">optionally sort the hash keys (determined by the I&lt;canonical&gt; flag), so</td></tr>
+<tr><td class="h"><a name="1417"></a>1417</td><td></td><td></td><td></td><td></td><td class="s">the same datastructure will serialise to the same JSON text (given same</td></tr>
+<tr><td class="h"><a name="1418"></a>1418</td><td></td><td></td><td></td><td></td><td class="s">settings and version of JSON::XS), but this incurs a runtime overhead</td></tr>
+<tr><td class="h"><a name="1419"></a>1419</td><td></td><td></td><td></td><td></td><td class="s">and is only rarely useful, e.g. when you want to compare some JSON text</td></tr>
+<tr><td class="h"><a name="1420"></a>1420</td><td></td><td></td><td></td><td></td><td class="s">against another for equality.</td></tr>
+<tr><td class="h"><a name="1421"></a>1421</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1422"></a>1422</td><td></td><td></td><td></td><td></td><td class="s">In future, the ordered object feature will be added to JSON::PP using C&lt;tie&gt; mechanism.</td></tr>
+<tr><td class="h"><a name="1423"></a>1423</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1424"></a>1424</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1425"></a>1425</td><td></td><td></td><td></td><td></td><td class="s">=item array references</td></tr>
+<tr><td class="h"><a name="1426"></a>1426</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1427"></a>1427</td><td></td><td></td><td></td><td></td><td class="s">Perl array references become JSON arrays.</td></tr>
+<tr><td class="h"><a name="1428"></a>1428</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1429"></a>1429</td><td></td><td></td><td></td><td></td><td class="s">=item other references</td></tr>
+<tr><td class="h"><a name="1430"></a>1430</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1431"></a>1431</td><td></td><td></td><td></td><td></td><td class="s">Other unblessed references are generally not allowed and will cause an</td></tr>
+<tr><td class="h"><a name="1432"></a>1432</td><td></td><td></td><td></td><td></td><td class="s">exception to be thrown, except for references to the integers C&lt;0&gt; and</td></tr>
+<tr><td class="h"><a name="1433"></a>1433</td><td></td><td></td><td></td><td></td><td class="s">C&lt;1&gt;, which get turned into C&lt;false&gt; and C&lt;true&gt; atoms in JSON. You can</td></tr>
+<tr><td class="h"><a name="1434"></a>1434</td><td></td><td></td><td></td><td></td><td class="s">also use C&lt;JSON::false&gt; and C&lt;JSON::true&gt; to improve readability.</td></tr>
+<tr><td class="h"><a name="1435"></a>1435</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1436"></a>1436</td><td></td><td></td><td></td><td></td><td class="s">   to_json [\0,JSON::true]      # yields [false,true]</td></tr>
+<tr><td class="h"><a name="1437"></a>1437</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1438"></a>1438</td><td></td><td></td><td></td><td></td><td class="s">=item JSON::true, JSON::false, JSON::null</td></tr>
+<tr><td class="h"><a name="1439"></a>1439</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1440"></a>1440</td><td></td><td></td><td></td><td></td><td class="s">These special values become JSON true and JSON false values,</td></tr>
+<tr><td class="h"><a name="1441"></a>1441</td><td></td><td></td><td></td><td></td><td class="s">respectively. You can also use C&lt;\1&gt; and C&lt;\0&gt; directly if you want.</td></tr>
+<tr><td class="h"><a name="1442"></a>1442</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1443"></a>1443</td><td></td><td></td><td></td><td></td><td class="s">JSON::null returns C&lt;undef&gt;.</td></tr>
+<tr><td class="h"><a name="1444"></a>1444</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1445"></a>1445</td><td></td><td></td><td></td><td></td><td class="s">=item blessed objects</td></tr>
+<tr><td class="h"><a name="1446"></a>1446</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1447"></a>1447</td><td></td><td></td><td></td><td></td><td class="s">Blessed objects are not directly representable in JSON. See the</td></tr>
+<tr><td class="h"><a name="1448"></a>1448</td><td></td><td></td><td></td><td></td><td class="s">C&lt;allow_blessed&gt; and C&lt;convert_blessed&gt; methods on various options on</td></tr>
+<tr><td class="h"><a name="1449"></a>1449</td><td></td><td></td><td></td><td></td><td class="s">how to deal with this: basically, you can choose between throwing an</td></tr>
+<tr><td class="h"><a name="1450"></a>1450</td><td></td><td></td><td></td><td></td><td class="s">exception, encoding the reference as if it weren't blessed, or provide</td></tr>
+<tr><td class="h"><a name="1451"></a>1451</td><td></td><td></td><td></td><td></td><td class="s">your own serialiser method.</td></tr>
+<tr><td class="h"><a name="1452"></a>1452</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1453"></a>1453</td><td></td><td></td><td></td><td></td><td class="s">With C&lt;convert_blessed_universally&gt; mode,  C&lt;encode&gt; converts blessed</td></tr>
+<tr><td class="h"><a name="1454"></a>1454</td><td></td><td></td><td></td><td></td><td class="s">hash references or blessed array references (contains other blessed references)</td></tr>
+<tr><td class="h"><a name="1455"></a>1455</td><td></td><td></td><td></td><td></td><td class="s">into JSON members and arrays.</td></tr>
+<tr><td class="h"><a name="1456"></a>1456</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1457"></a>1457</td><td></td><td></td><td></td><td></td><td class="s">   use JSON -convert_blessed_universally;</td></tr>
+<tr><td class="h"><a name="1458"></a>1458</td><td></td><td></td><td></td><td></td><td class="s">   JSON-&gt;new-&gt;allow_blessed-&gt;convert_blessed-&gt;encode( $blessed_object );</td></tr>
+<tr><td class="h"><a name="1459"></a>1459</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1460"></a>1460</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;convert_blessed&gt;.</td></tr>
+<tr><td class="h"><a name="1461"></a>1461</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1462"></a>1462</td><td></td><td></td><td></td><td></td><td class="s">=item simple scalars</td></tr>
+<tr><td class="h"><a name="1463"></a>1463</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1464"></a>1464</td><td></td><td></td><td></td><td></td><td class="s">Simple Perl scalars (any scalar that is not a reference) are the most</td></tr>
+<tr><td class="h"><a name="1465"></a>1465</td><td></td><td></td><td></td><td></td><td class="s">difficult objects to encode: JSON::XS and JSON::PP will encode undefined scalars as</td></tr>
+<tr><td class="h"><a name="1466"></a>1466</td><td></td><td></td><td></td><td></td><td class="s">JSON C&lt;null&gt; values, scalars that have last been used in a string context</td></tr>
+<tr><td class="h"><a name="1467"></a>1467</td><td></td><td></td><td></td><td></td><td class="s">before encoding as JSON strings, and anything else as number value:</td></tr>
+<tr><td class="h"><a name="1468"></a>1468</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1469"></a>1469</td><td></td><td></td><td></td><td></td><td class="s">   # dump as number</td></tr>
+<tr><td class="h"><a name="1470"></a>1470</td><td></td><td></td><td></td><td></td><td class="s">   encode_json [2]                      # yields [2]</td></tr>
+<tr><td class="h"><a name="1471"></a>1471</td><td></td><td></td><td></td><td></td><td class="s">   encode_json [-3.0e17]                # yields [-3e+17]</td></tr>
+<tr><td class="h"><a name="1472"></a>1472</td><td></td><td></td><td></td><td></td><td class="s">   my $value = 5; encode_json [$value]  # yields [5]</td></tr>
+<tr><td class="h"><a name="1473"></a>1473</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1474"></a>1474</td><td></td><td></td><td></td><td></td><td class="s">   # used as string, so dump as string</td></tr>
+<tr><td class="h"><a name="1475"></a>1475</td><td></td><td></td><td></td><td></td><td class="s">   print $value;</td></tr>
+<tr><td class="h"><a name="1476"></a>1476</td><td></td><td></td><td></td><td></td><td class="s">   encode_json [$value]                 # yields [&quot;5&quot;]</td></tr>
+<tr><td class="h"><a name="1477"></a>1477</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1478"></a>1478</td><td></td><td></td><td></td><td></td><td class="s">   # undef becomes null</td></tr>
+<tr><td class="h"><a name="1479"></a>1479</td><td></td><td></td><td></td><td></td><td class="s">   encode_json [undef]                  # yields [null]</td></tr>
+<tr><td class="h"><a name="1480"></a>1480</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1481"></a>1481</td><td></td><td></td><td></td><td></td><td class="s">You can force the type to be a string by stringifying it:</td></tr>
+<tr><td class="h"><a name="1482"></a>1482</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1483"></a>1483</td><td></td><td></td><td></td><td></td><td class="s">   my $x = 3.1; # some variable containing a number</td></tr>
+<tr><td class="h"><a name="1484"></a>1484</td><td></td><td></td><td></td><td></td><td class="s">   &quot;$x&quot;;        # stringified</td></tr>
+<tr><td class="h"><a name="1485"></a>1485</td><td></td><td></td><td></td><td></td><td class="s">   $x .= &quot;&quot;;    # another, more awkward way to stringify</td></tr>
+<tr><td class="h"><a name="1486"></a>1486</td><td></td><td></td><td></td><td></td><td class="s">   print $x;    # perl does it for you, too, quite often</td></tr>
+<tr><td class="h"><a name="1487"></a>1487</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1488"></a>1488</td><td></td><td></td><td></td><td></td><td class="s">You can force the type to be a number by numifying it:</td></tr>
+<tr><td class="h"><a name="1489"></a>1489</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1490"></a>1490</td><td></td><td></td><td></td><td></td><td class="s">   my $x = &quot;3&quot;; # some variable containing a string</td></tr>
+<tr><td class="h"><a name="1491"></a>1491</td><td></td><td></td><td></td><td></td><td class="s">   $x += 0;     # numify it, ensuring it will be dumped as a number</td></tr>
+<tr><td class="h"><a name="1492"></a>1492</td><td></td><td></td><td></td><td></td><td class="s">   $x *= 1;     # same thing, the choise is yours.</td></tr>
+<tr><td class="h"><a name="1493"></a>1493</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1494"></a>1494</td><td></td><td></td><td></td><td></td><td class="s">You can not currently force the type in other, less obscure, ways.</td></tr>
+<tr><td class="h"><a name="1495"></a>1495</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1496"></a>1496</td><td></td><td></td><td></td><td></td><td class="s">Note that numerical precision has the same meaning as under Perl (so</td></tr>
+<tr><td class="h"><a name="1497"></a>1497</td><td></td><td></td><td></td><td></td><td class="s">binary to decimal conversion follows the same rules as in Perl, which</td></tr>
+<tr><td class="h"><a name="1498"></a>1498</td><td></td><td></td><td></td><td></td><td class="s">can differ to other languages). Also, your perl interpreter might expose</td></tr>
+<tr><td class="h"><a name="1499"></a>1499</td><td></td><td></td><td></td><td></td><td class="s">extensions to the floating point numbers of your platform, such as</td></tr>
+<tr><td class="h"><a name="1500"></a>1500</td><td></td><td></td><td></td><td></td><td class="s">infinities or NaN's - these cannot be represented in JSON, and it is an</td></tr>
+<tr><td class="h"><a name="1501"></a>1501</td><td></td><td></td><td></td><td></td><td class="s">error to pass those in.</td></tr>
+<tr><td class="h"><a name="1502"></a>1502</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1503"></a>1503</td><td></td><td></td><td></td><td></td><td class="s">=item Big Number</td></tr>
+<tr><td class="h"><a name="1504"></a>1504</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1505"></a>1505</td><td></td><td></td><td></td><td></td><td class="s">If the backend is JSON::PP and C&lt;allow_bignum&gt; is enable, </td></tr>
+<tr><td class="h"><a name="1506"></a>1506</td><td></td><td></td><td></td><td></td><td class="s">C&lt;encode&gt; converts C&lt;Math::BigInt&gt; objects and C&lt;Math::BigFloat&gt;</td></tr>
+<tr><td class="h"><a name="1507"></a>1507</td><td></td><td></td><td></td><td></td><td class="s">objects into JSON numbers.</td></tr>
+<tr><td class="h"><a name="1508"></a>1508</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1509"></a>1509</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1510"></a>1510</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
+<tr><td class="h"><a name="1511"></a>1511</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1512"></a>1512</td><td></td><td></td><td></td><td></td><td class="s">=head1 JSON and ECMAscript</td></tr>
+<tr><td class="h"><a name="1513"></a>1513</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1514"></a>1514</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::XS/JSON and ECMAscript&gt;.</td></tr>
+<tr><td class="h"><a name="1515"></a>1515</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1516"></a>1516</td><td></td><td></td><td></td><td></td><td class="s">=head1 JSON and YAML</td></tr>
+<tr><td class="h"><a name="1517"></a>1517</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1518"></a>1518</td><td></td><td></td><td></td><td></td><td class="s">JSON is not a subset of YAML.</td></tr>
+<tr><td class="h"><a name="1519"></a>1519</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::XS/JSON and YAML&gt;.</td></tr>
+<tr><td class="h"><a name="1520"></a>1520</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1521"></a>1521</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1522"></a>1522</td><td></td><td></td><td></td><td></td><td class="s">=head1 BACKEND MODULE DECISION</td></tr>
+<tr><td class="h"><a name="1523"></a>1523</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1524"></a>1524</td><td></td><td></td><td></td><td></td><td class="s">When you use C&lt;JSON&gt;, C&lt;JSON&gt; tries to C&lt;use&gt; JSON::XS. If this call failed, it will</td></tr>
+<tr><td class="h"><a name="1525"></a>1525</td><td></td><td></td><td></td><td></td><td class="s">C&lt;uses&gt; JSON::PP. The required JSON::XS version is I&lt;2.2&gt; or later.</td></tr>
+<tr><td class="h"><a name="1526"></a>1526</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1527"></a>1527</td><td></td><td></td><td></td><td></td><td class="s">The C&lt;JSON&gt; constructor method returns an object inherited from the backend module,</td></tr>
+<tr><td class="h"><a name="1528"></a>1528</td><td></td><td></td><td></td><td></td><td class="s">and JSON::XS object is a blessed scaler reference while JSON::PP is a blessed hash</td></tr>
+<tr><td class="h"><a name="1529"></a>1529</td><td></td><td></td><td></td><td></td><td class="s">reference.</td></tr>
+<tr><td class="h"><a name="1530"></a>1530</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1531"></a>1531</td><td></td><td></td><td></td><td></td><td class="s">So, your program should not depend on the backend module, especially</td></tr>
+<tr><td class="h"><a name="1532"></a>1532</td><td></td><td></td><td></td><td></td><td class="s">returned objects should not be modified.</td></tr>
+<tr><td class="h"><a name="1533"></a>1533</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1534"></a>1534</td><td></td><td></td><td></td><td></td><td class="s"> my $json = JSON-&gt;new; # XS or PP?</td></tr>
+<tr><td class="h"><a name="1535"></a>1535</td><td></td><td></td><td></td><td></td><td class="s"> $json-&gt;{stash} = 'this is xs object'; # this code may raise an error!</td></tr>
+<tr><td class="h"><a name="1536"></a>1536</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1537"></a>1537</td><td></td><td></td><td></td><td></td><td class="s">To check the backend module, there are some methods - C&lt;backend&gt;, C&lt;is_pp&gt; and C&lt;is_xs&gt;.</td></tr>
+<tr><td class="h"><a name="1538"></a>1538</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1539"></a>1539</td><td></td><td></td><td></td><td></td><td class="s">  JSON-&gt;backend; # 'JSON::XS' or 'JSON::PP'</td></tr>
+<tr><td class="h"><a name="1540"></a>1540</td><td></td><td></td><td></td><td></td><td class="s">  </td></tr>
+<tr><td class="h"><a name="1541"></a>1541</td><td></td><td></td><td></td><td></td><td class="s">  JSON-&gt;backend-&gt;is_pp: # 0 or 1</td></tr>
+<tr><td class="h"><a name="1542"></a>1542</td><td></td><td></td><td></td><td></td><td class="s">  </td></tr>
+<tr><td class="h"><a name="1543"></a>1543</td><td></td><td></td><td></td><td></td><td class="s">  JSON-&gt;backend-&gt;is_xs: # 1 or 0</td></tr>
+<tr><td class="h"><a name="1544"></a>1544</td><td></td><td></td><td></td><td></td><td class="s">  </td></tr>
+<tr><td class="h"><a name="1545"></a>1545</td><td></td><td></td><td></td><td></td><td class="s">  $json-&gt;is_xs; # 1 or 0</td></tr>
+<tr><td class="h"><a name="1546"></a>1546</td><td></td><td></td><td></td><td></td><td class="s">  </td></tr>
+<tr><td class="h"><a name="1547"></a>1547</td><td></td><td></td><td></td><td></td><td class="s">  $json-&gt;is_pp; # 0 or 1</td></tr>
+<tr><td class="h"><a name="1548"></a>1548</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1549"></a>1549</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1550"></a>1550</td><td></td><td></td><td></td><td></td><td class="s">If you set an enviornment variable C&lt;PERL_JSON_BACKEND&gt;, The calling action will be changed.</td></tr>
+<tr><td class="h"><a name="1551"></a>1551</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1552"></a>1552</td><td></td><td></td><td></td><td></td><td class="s">=over</td></tr>
+<tr><td class="h"><a name="1553"></a>1553</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1554"></a>1554</td><td></td><td></td><td></td><td></td><td class="s">=item PERL_JSON_BACKEND = 0 or PERL_JSON_BACKEND = 'JSON::PP'</td></tr>
+<tr><td class="h"><a name="1555"></a>1555</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1556"></a>1556</td><td></td><td></td><td></td><td></td><td class="s">Always use JSON::PP</td></tr>
+<tr><td class="h"><a name="1557"></a>1557</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1558"></a>1558</td><td></td><td></td><td></td><td></td><td class="s">=item PERL_JSON_BACKEND == 1 or PERL_JSON_BACKEND = 'JSON::XS,JSON::PP'</td></tr>
+<tr><td class="h"><a name="1559"></a>1559</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1560"></a>1560</td><td></td><td></td><td></td><td></td><td class="s">(The default) Use compiled JSON::XS if it is properly compiled &amp; installed,</td></tr>
+<tr><td class="h"><a name="1561"></a>1561</td><td></td><td></td><td></td><td></td><td class="s">otherwise use JSON::PP.</td></tr>
+<tr><td class="h"><a name="1562"></a>1562</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1563"></a>1563</td><td></td><td></td><td></td><td></td><td class="s">=item PERL_JSON_BACKEND == 2 or PERL_JSON_BACKEND = 'JSON::XS'</td></tr>
+<tr><td class="h"><a name="1564"></a>1564</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1565"></a>1565</td><td></td><td></td><td></td><td></td><td class="s">Always use compiled JSON::XS, die if it isn't properly compiled &amp; installed.</td></tr>
+<tr><td class="h"><a name="1566"></a>1566</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1567"></a>1567</td><td></td><td></td><td></td><td></td><td class="s">=item PERL_JSON_BACKEND = 'JSON::backportPP'</td></tr>
+<tr><td class="h"><a name="1568"></a>1568</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1569"></a>1569</td><td></td><td></td><td></td><td></td><td class="s">Always use JSON::backportPP.</td></tr>
+<tr><td class="h"><a name="1570"></a>1570</td><td></td><td></td><td></td><td></td><td class="s">JSON::backportPP is JSON::PP back port module.</td></tr>
+<tr><td class="h"><a name="1571"></a>1571</td><td></td><td></td><td></td><td></td><td class="s">C&lt;JSON&gt; includs JSON::backportPP instead of JSON::PP.</td></tr>
+<tr><td class="h"><a name="1572"></a>1572</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1573"></a>1573</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
+<tr><td class="h"><a name="1574"></a>1574</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1575"></a>1575</td><td></td><td></td><td></td><td></td><td class="s">These ideas come from L&lt;DBI::PurePerl&gt; mechanism.</td></tr>
+<tr><td class="h"><a name="1576"></a>1576</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1577"></a>1577</td><td></td><td></td><td></td><td></td><td class="s">example:</td></tr>
+<tr><td class="h"><a name="1578"></a>1578</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1579"></a>1579</td><td></td><td></td><td></td><td></td><td class="s"> BEGIN { $ENV{PERL_JSON_BACKEND} = 'JSON::PP' }</td></tr>
+<tr><td class="h"><a name="1580"></a>1580</td><td></td><td></td><td></td><td></td><td class="s"> use JSON; # always uses JSON::PP</td></tr>
+<tr><td class="h"><a name="1581"></a>1581</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1582"></a>1582</td><td></td><td></td><td></td><td></td><td class="s">In future, it may be able to specify another module.</td></tr>
+<tr><td class="h"><a name="1583"></a>1583</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1584"></a>1584</td><td></td><td></td><td></td><td></td><td class="s">=head1 USE PP FEATURES EVEN THOUGH XS BACKEND</td></tr>
+<tr><td class="h"><a name="1585"></a>1585</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1586"></a>1586</td><td></td><td></td><td></td><td></td><td class="s">Many methods are available with either JSON::XS or JSON::PP and</td></tr>
+<tr><td class="h"><a name="1587"></a>1587</td><td></td><td></td><td></td><td></td><td class="s">when the backend module is JSON::XS, if any JSON::PP specific (i.e. JSON::XS unspported)</td></tr>
+<tr><td class="h"><a name="1588"></a>1588</td><td></td><td></td><td></td><td></td><td class="s">method is called, it will C&lt;warn&gt; and be noop.</td></tr>
+<tr><td class="h"><a name="1589"></a>1589</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1590"></a>1590</td><td></td><td></td><td></td><td></td><td class="s">But If you C&lt;use&gt; C&lt;JSON&gt; passing the optional string C&lt;-support_by_pp&gt;,</td></tr>
+<tr><td class="h"><a name="1591"></a>1591</td><td></td><td></td><td></td><td></td><td class="s">it makes a part of those unupported methods available.</td></tr>
+<tr><td class="h"><a name="1592"></a>1592</td><td></td><td></td><td></td><td></td><td class="s">This feature is achieved by using JSON::PP in C&lt;de/encode&gt;.</td></tr>
+<tr><td class="h"><a name="1593"></a>1593</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1594"></a>1594</td><td></td><td></td><td></td><td></td><td class="s">   BEGIN { $ENV{PERL_JSON_BACKEND} = 2 } # with JSON::XS</td></tr>
+<tr><td class="h"><a name="1595"></a>1595</td><td></td><td></td><td></td><td></td><td class="s">   use JSON -support_by_pp;</td></tr>
+<tr><td class="h"><a name="1596"></a>1596</td><td></td><td></td><td></td><td></td><td class="s">   my $json = new JSON;</td></tr>
+<tr><td class="h"><a name="1597"></a>1597</td><td></td><td></td><td></td><td></td><td class="s">   $json-&gt;allow_nonref-&gt;escape_slash-&gt;encode(&quot;/&quot;);</td></tr>
+<tr><td class="h"><a name="1598"></a>1598</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1599"></a>1599</td><td></td><td></td><td></td><td></td><td class="s">At this time, the returned object is a C&lt;JSON::Backend::XS::Supportable&gt;</td></tr>
+<tr><td class="h"><a name="1600"></a>1600</td><td></td><td></td><td></td><td></td><td class="s">object (re-blessed XS object), and  by checking JSON::XS unsupported flags</td></tr>
+<tr><td class="h"><a name="1601"></a>1601</td><td></td><td></td><td></td><td></td><td class="s">in de/encoding, can support some unsupported methods - C&lt;loose&gt;, C&lt;allow_bignum&gt;,</td></tr>
+<tr><td class="h"><a name="1602"></a>1602</td><td></td><td></td><td></td><td></td><td class="s">C&lt;allow_barekey&gt;, C&lt;allow_singlequote&gt;, C&lt;escape_slash&gt; and C&lt;indent_length&gt;.</td></tr>
+<tr><td class="h"><a name="1603"></a>1603</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1604"></a>1604</td><td></td><td></td><td></td><td></td><td class="s">When any unsupported methods are not enable, C&lt;XS de/encode&gt; will be</td></tr>
+<tr><td class="h"><a name="1605"></a>1605</td><td></td><td></td><td></td><td></td><td class="s">used as is. The switch is achieved by changing the symbolic tables.</td></tr>
+<tr><td class="h"><a name="1606"></a>1606</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1607"></a>1607</td><td></td><td></td><td></td><td></td><td class="s">C&lt;-support_by_pp&gt; is effective only when the backend module is JSON::XS</td></tr>
+<tr><td class="h"><a name="1608"></a>1608</td><td></td><td></td><td></td><td></td><td class="s">and it makes the de/encoding speed down a bit.</td></tr>
+<tr><td class="h"><a name="1609"></a>1609</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1610"></a>1610</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::PP SUPPORT METHODS&gt;.</td></tr>
+<tr><td class="h"><a name="1611"></a>1611</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1612"></a>1612</td><td></td><td></td><td></td><td></td><td class="s">=head1 INCOMPATIBLE CHANGES TO OLD VERSION</td></tr>
+<tr><td class="h"><a name="1613"></a>1613</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1614"></a>1614</td><td></td><td></td><td></td><td></td><td class="s">There are big incompatibility between new version (2.00) and old (1.xx).</td></tr>
+<tr><td class="h"><a name="1615"></a>1615</td><td></td><td></td><td></td><td></td><td class="s">If you use old C&lt;JSON&gt; 1.xx in your code, please check it.</td></tr>
+<tr><td class="h"><a name="1616"></a>1616</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1617"></a>1617</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;Transition ways from 1.xx to 2.xx.&gt;</td></tr>
+<tr><td class="h"><a name="1618"></a>1618</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1619"></a>1619</td><td></td><td></td><td></td><td></td><td class="s">=over</td></tr>
+<tr><td class="h"><a name="1620"></a>1620</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1621"></a>1621</td><td></td><td></td><td></td><td></td><td class="s">=item jsonToObj and objToJson are obsoleted.</td></tr>
+<tr><td class="h"><a name="1622"></a>1622</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1623"></a>1623</td><td></td><td></td><td></td><td></td><td class="s">Non Perl-style name C&lt;jsonToObj&gt; and C&lt;objToJson&gt; are obsoleted</td></tr>
+<tr><td class="h"><a name="1624"></a>1624</td><td></td><td></td><td></td><td></td><td class="s">(but not yet deleted from the source).</td></tr>
+<tr><td class="h"><a name="1625"></a>1625</td><td></td><td></td><td></td><td></td><td class="s">If you use these functions in your code, please replace them</td></tr>
+<tr><td class="h"><a name="1626"></a>1626</td><td></td><td></td><td></td><td></td><td class="s">with C&lt;from_json&gt; and C&lt;to_json&gt;.</td></tr>
+<tr><td class="h"><a name="1627"></a>1627</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1628"></a>1628</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1629"></a>1629</td><td></td><td></td><td></td><td></td><td class="s">=item Global variables are no longer available.</td></tr>
+<tr><td class="h"><a name="1630"></a>1630</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1631"></a>1631</td><td></td><td></td><td></td><td></td><td class="s">C&lt;JSON&gt; class variables - C&lt;$JSON::AUTOCONVERT&gt;, C&lt;$JSON::BareKey&gt;, etc...</td></tr>
+<tr><td class="h"><a name="1632"></a>1632</td><td></td><td></td><td></td><td></td><td class="s">- are not available any longer.</td></tr>
+<tr><td class="h"><a name="1633"></a>1633</td><td></td><td></td><td></td><td></td><td class="s">Instead, various features can be used through object methods.</td></tr>
+<tr><td class="h"><a name="1634"></a>1634</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1635"></a>1635</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1636"></a>1636</td><td></td><td></td><td></td><td></td><td class="s">=item Package JSON::Converter and JSON::Parser are deleted.</td></tr>
+<tr><td class="h"><a name="1637"></a>1637</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1638"></a>1638</td><td></td><td></td><td></td><td></td><td class="s">Now C&lt;JSON&gt; bundles with JSON::PP which can handle JSON more properly than them.</td></tr>
+<tr><td class="h"><a name="1639"></a>1639</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1640"></a>1640</td><td></td><td></td><td></td><td></td><td class="s">=item Package JSON::NotString is deleted.</td></tr>
+<tr><td class="h"><a name="1641"></a>1641</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1642"></a>1642</td><td></td><td></td><td></td><td></td><td class="s">There was C&lt;JSON::NotString&gt; class which represents JSON value C&lt;true&gt;, C&lt;false&gt;, C&lt;null&gt;</td></tr>
+<tr><td class="h"><a name="1643"></a>1643</td><td></td><td></td><td></td><td></td><td class="s">and numbers. It was deleted and replaced by C&lt;JSON::Boolean&gt;.</td></tr>
+<tr><td class="h"><a name="1644"></a>1644</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1645"></a>1645</td><td></td><td></td><td></td><td></td><td class="s">C&lt;JSON::Boolean&gt; represents C&lt;true&gt; and C&lt;false&gt;.</td></tr>
+<tr><td class="h"><a name="1646"></a>1646</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1647"></a>1647</td><td></td><td></td><td></td><td></td><td class="s">C&lt;JSON::Boolean&gt; does not represent C&lt;null&gt;.</td></tr>
+<tr><td class="h"><a name="1648"></a>1648</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1649"></a>1649</td><td></td><td></td><td></td><td></td><td class="s">C&lt;JSON::null&gt; returns C&lt;undef&gt;.</td></tr>
+<tr><td class="h"><a name="1650"></a>1650</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1651"></a>1651</td><td></td><td></td><td></td><td></td><td class="s">C&lt;JSON&gt; makes L&lt;JSON::XS::Boolean&gt; and L&lt;JSON::PP::Boolean&gt; is-a relation</td></tr>
+<tr><td class="h"><a name="1652"></a>1652</td><td></td><td></td><td></td><td></td><td class="s">to L&lt;JSON::Boolean&gt;.</td></tr>
+<tr><td class="h"><a name="1653"></a>1653</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1654"></a>1654</td><td></td><td></td><td></td><td></td><td class="s">=item function JSON::Number is obsoleted.</td></tr>
+<tr><td class="h"><a name="1655"></a>1655</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1656"></a>1656</td><td></td><td></td><td></td><td></td><td class="s">C&lt;JSON::Number&gt; is now needless because JSON::XS and JSON::PP have</td></tr>
+<tr><td class="h"><a name="1657"></a>1657</td><td></td><td></td><td></td><td></td><td class="s">round-trip integrity.</td></tr>
+<tr><td class="h"><a name="1658"></a>1658</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1659"></a>1659</td><td></td><td></td><td></td><td></td><td class="s">=item JSONRPC modules are deleted.</td></tr>
+<tr><td class="h"><a name="1660"></a>1660</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1661"></a>1661</td><td></td><td></td><td></td><td></td><td class="s">Perl implementation of JSON-RPC protocol - C&lt;JSONRPC &gt;, C&lt;JSONRPC::Transport::HTTP&gt;</td></tr>
+<tr><td class="h"><a name="1662"></a>1662</td><td></td><td></td><td></td><td></td><td class="s">and C&lt;Apache::JSONRPC &gt; are deleted in this distribution.</td></tr>
+<tr><td class="h"><a name="1663"></a>1663</td><td></td><td></td><td></td><td></td><td class="s">Instead of them, there is L&lt;JSON::RPC&gt; which supports JSON-RPC protocol version 1.1.</td></tr>
+<tr><td class="h"><a name="1664"></a>1664</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1665"></a>1665</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
+<tr><td class="h"><a name="1666"></a>1666</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1667"></a>1667</td><td></td><td></td><td></td><td></td><td class="s">=head2 Transition ways from 1.xx to 2.xx.</td></tr>
+<tr><td class="h"><a name="1668"></a>1668</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1669"></a>1669</td><td></td><td></td><td></td><td></td><td class="s">You should set C&lt;suport_by_pp&gt; mode firstly, because</td></tr>
+<tr><td class="h"><a name="1670"></a>1670</td><td></td><td></td><td></td><td></td><td class="s">it is always successful for the below codes even with JSON::XS.</td></tr>
+<tr><td class="h"><a name="1671"></a>1671</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1672"></a>1672</td><td></td><td></td><td></td><td></td><td class="s">    use JSON -support_by_pp;</td></tr>
+<tr><td class="h"><a name="1673"></a>1673</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1674"></a>1674</td><td></td><td></td><td></td><td></td><td class="s">=over</td></tr>
+<tr><td class="h"><a name="1675"></a>1675</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1676"></a>1676</td><td></td><td></td><td></td><td></td><td class="s">=item Exported jsonToObj (simple)</td></tr>
+<tr><td class="h"><a name="1677"></a>1677</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1678"></a>1678</td><td></td><td></td><td></td><td></td><td class="s">  from_json($json_text);</td></tr>
+<tr><td class="h"><a name="1679"></a>1679</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1680"></a>1680</td><td></td><td></td><td></td><td></td><td class="s">=item Exported objToJson (simple)</td></tr>
+<tr><td class="h"><a name="1681"></a>1681</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1682"></a>1682</td><td></td><td></td><td></td><td></td><td class="s">  to_json($perl_scalar);</td></tr>
+<tr><td class="h"><a name="1683"></a>1683</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1684"></a>1684</td><td></td><td></td><td></td><td></td><td class="s">=item Exported jsonToObj (advanced)</td></tr>
+<tr><td class="h"><a name="1685"></a>1685</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1686"></a>1686</td><td></td><td></td><td></td><td></td><td class="s">  $flags = {allow_barekey =&gt; 1, allow_singlequote =&gt; 1};</td></tr>
+<tr><td class="h"><a name="1687"></a>1687</td><td></td><td></td><td></td><td></td><td class="s">  from_json($json_text, $flags);</td></tr>
+<tr><td class="h"><a name="1688"></a>1688</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1689"></a>1689</td><td></td><td></td><td></td><td></td><td class="s">equivalent to:</td></tr>
+<tr><td class="h"><a name="1690"></a>1690</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1691"></a>1691</td><td></td><td></td><td></td><td></td><td class="s">  $JSON::BareKey = 1;</td></tr>
+<tr><td class="h"><a name="1692"></a>1692</td><td></td><td></td><td></td><td></td><td class="s">  $JSON::QuotApos = 1;</td></tr>
+<tr><td class="h"><a name="1693"></a>1693</td><td></td><td></td><td></td><td></td><td class="s">  jsonToObj($json_text);</td></tr>
+<tr><td class="h"><a name="1694"></a>1694</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1695"></a>1695</td><td></td><td></td><td></td><td></td><td class="s">=item Exported objToJson (advanced)</td></tr>
+<tr><td class="h"><a name="1696"></a>1696</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1697"></a>1697</td><td></td><td></td><td></td><td></td><td class="s">  $flags = {allow_blessed =&gt; 1, allow_barekey =&gt; 1};</td></tr>
+<tr><td class="h"><a name="1698"></a>1698</td><td></td><td></td><td></td><td></td><td class="s">  to_json($perl_scalar, $flags);</td></tr>
+<tr><td class="h"><a name="1699"></a>1699</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1700"></a>1700</td><td></td><td></td><td></td><td></td><td class="s">equivalent to:</td></tr>
+<tr><td class="h"><a name="1701"></a>1701</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1702"></a>1702</td><td></td><td></td><td></td><td></td><td class="s">  $JSON::BareKey = 1;</td></tr>
+<tr><td class="h"><a name="1703"></a>1703</td><td></td><td></td><td></td><td></td><td class="s">  objToJson($perl_scalar);</td></tr>
+<tr><td class="h"><a name="1704"></a>1704</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1705"></a>1705</td><td></td><td></td><td></td><td></td><td class="s">=item jsonToObj as object method</td></tr>
+<tr><td class="h"><a name="1706"></a>1706</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1707"></a>1707</td><td></td><td></td><td></td><td></td><td class="s">  $json-&gt;decode($json_text);</td></tr>
+<tr><td class="h"><a name="1708"></a>1708</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1709"></a>1709</td><td></td><td></td><td></td><td></td><td class="s">=item objToJson as object method</td></tr>
+<tr><td class="h"><a name="1710"></a>1710</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1711"></a>1711</td><td></td><td></td><td></td><td></td><td class="s">  $json-&gt;encode($perl_scalar);</td></tr>
+<tr><td class="h"><a name="1712"></a>1712</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1713"></a>1713</td><td></td><td></td><td></td><td></td><td class="s">=item new method with parameters</td></tr>
+<tr><td class="h"><a name="1714"></a>1714</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1715"></a>1715</td><td></td><td></td><td></td><td></td><td class="s">The C&lt;new&gt; method in 2.x takes any parameters no longer.</td></tr>
+<tr><td class="h"><a name="1716"></a>1716</td><td></td><td></td><td></td><td></td><td class="s">You can set parameters instead;</td></tr>
+<tr><td class="h"><a name="1717"></a>1717</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1718"></a>1718</td><td></td><td></td><td></td><td></td><td class="s">   $json = JSON-&gt;new-&gt;pretty;</td></tr>
+<tr><td class="h"><a name="1719"></a>1719</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1720"></a>1720</td><td></td><td></td><td></td><td></td><td class="s">=item $JSON::Pretty, $JSON::Indent, $JSON::Delimiter</td></tr>
+<tr><td class="h"><a name="1721"></a>1721</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1722"></a>1722</td><td></td><td></td><td></td><td></td><td class="s">If C&lt;indent&gt; is enable, that means C&lt;$JSON::Pretty&gt; flag set. And</td></tr>
+<tr><td class="h"><a name="1723"></a>1723</td><td></td><td></td><td></td><td></td><td class="s">C&lt;$JSON::Delimiter&gt; was substituted by C&lt;space_before&gt; and C&lt;space_after&gt;.</td></tr>
+<tr><td class="h"><a name="1724"></a>1724</td><td></td><td></td><td></td><td></td><td class="s">In conclusion:</td></tr>
+<tr><td class="h"><a name="1725"></a>1725</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1726"></a>1726</td><td></td><td></td><td></td><td></td><td class="s">   $json-&gt;indent-&gt;space_before-&gt;space_after;</td></tr>
+<tr><td class="h"><a name="1727"></a>1727</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1728"></a>1728</td><td></td><td></td><td></td><td></td><td class="s">Equivalent to:</td></tr>
+<tr><td class="h"><a name="1729"></a>1729</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1730"></a>1730</td><td></td><td></td><td></td><td></td><td class="s">  $json-&gt;pretty;</td></tr>
+<tr><td class="h"><a name="1731"></a>1731</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1732"></a>1732</td><td></td><td></td><td></td><td></td><td class="s">To change indent length, use C&lt;indent_length&gt;.</td></tr>
+<tr><td class="h"><a name="1733"></a>1733</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1734"></a>1734</td><td></td><td></td><td></td><td></td><td class="s">(Only with JSON::PP, if C&lt;-support_by_pp&gt; is not used.)</td></tr>
+<tr><td class="h"><a name="1735"></a>1735</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1736"></a>1736</td><td></td><td></td><td></td><td></td><td class="s">  $json-&gt;pretty-&gt;indent_length(2)-&gt;encode($perl_scalar);</td></tr>
+<tr><td class="h"><a name="1737"></a>1737</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1738"></a>1738</td><td></td><td></td><td></td><td></td><td class="s">=item $JSON::BareKey</td></tr>
+<tr><td class="h"><a name="1739"></a>1739</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1740"></a>1740</td><td></td><td></td><td></td><td></td><td class="s">(Only with JSON::PP, if C&lt;-support_by_pp&gt; is not used.)</td></tr>
+<tr><td class="h"><a name="1741"></a>1741</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1742"></a>1742</td><td></td><td></td><td></td><td></td><td class="s">  $json-&gt;allow_barekey-&gt;decode($json_text)</td></tr>
+<tr><td class="h"><a name="1743"></a>1743</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1744"></a>1744</td><td></td><td></td><td></td><td></td><td class="s">=item $JSON::ConvBlessed</td></tr>
+<tr><td class="h"><a name="1745"></a>1745</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1746"></a>1746</td><td></td><td></td><td></td><td></td><td class="s">use C&lt;-convert_blessed_universally&gt;. See to L&lt;convert_blessed&gt;.</td></tr>
+<tr><td class="h"><a name="1747"></a>1747</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1748"></a>1748</td><td></td><td></td><td></td><td></td><td class="s">=item $JSON::QuotApos</td></tr>
+<tr><td class="h"><a name="1749"></a>1749</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1750"></a>1750</td><td></td><td></td><td></td><td></td><td class="s">(Only with JSON::PP, if C&lt;-support_by_pp&gt; is not used.)</td></tr>
+<tr><td class="h"><a name="1751"></a>1751</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1752"></a>1752</td><td></td><td></td><td></td><td></td><td class="s">  $json-&gt;allow_singlequote-&gt;decode($json_text)</td></tr>
+<tr><td class="h"><a name="1753"></a>1753</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1754"></a>1754</td><td></td><td></td><td></td><td></td><td class="s">=item $JSON::SingleQuote</td></tr>
+<tr><td class="h"><a name="1755"></a>1755</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1756"></a>1756</td><td></td><td></td><td></td><td></td><td class="s">Disable. C&lt;JSON&gt; does not make such a invalid JSON string any longer.</td></tr>
+<tr><td class="h"><a name="1757"></a>1757</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1758"></a>1758</td><td></td><td></td><td></td><td></td><td class="s">=item $JSON::KeySort</td></tr>
+<tr><td class="h"><a name="1759"></a>1759</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1760"></a>1760</td><td></td><td></td><td></td><td></td><td class="s">  $json-&gt;canonical-&gt;encode($perl_scalar)</td></tr>
+<tr><td class="h"><a name="1761"></a>1761</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1762"></a>1762</td><td></td><td></td><td></td><td></td><td class="s">This is the ascii sort.</td></tr>
+<tr><td class="h"><a name="1763"></a>1763</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1764"></a>1764</td><td></td><td></td><td></td><td></td><td class="s">If you want to use with your own sort routine, check the C&lt;sort_by&gt; method.</td></tr>
+<tr><td class="h"><a name="1765"></a>1765</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1766"></a>1766</td><td></td><td></td><td></td><td></td><td class="s">(Only with JSON::PP, even if C&lt;-support_by_pp&gt; is used currently.)</td></tr>
+<tr><td class="h"><a name="1767"></a>1767</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1768"></a>1768</td><td></td><td></td><td></td><td></td><td class="s">  $json-&gt;sort_by($sort_routine_ref)-&gt;encode($perl_scalar)</td></tr>
+<tr><td class="h"><a name="1769"></a>1769</td><td></td><td></td><td></td><td></td><td class="s"> </td></tr>
+<tr><td class="h"><a name="1770"></a>1770</td><td></td><td></td><td></td><td></td><td class="s">  $json-&gt;sort_by(sub { $JSON::PP::a &lt;=&gt; $JSON::PP::b })-&gt;encode($perl_scalar)</td></tr>
+<tr><td class="h"><a name="1771"></a>1771</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1772"></a>1772</td><td></td><td></td><td></td><td></td><td class="s">Can't access C&lt;$a&gt; and C&lt;$b&gt; but C&lt;$JSON::PP::a&gt; and C&lt;$JSON::PP::b&gt;.</td></tr>
+<tr><td class="h"><a name="1773"></a>1773</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1774"></a>1774</td><td></td><td></td><td></td><td></td><td class="s">=item $JSON::SkipInvalid</td></tr>
+<tr><td class="h"><a name="1775"></a>1775</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1776"></a>1776</td><td></td><td></td><td></td><td></td><td class="s">  $json-&gt;allow_unknown</td></tr>
+<tr><td class="h"><a name="1777"></a>1777</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1778"></a>1778</td><td></td><td></td><td></td><td></td><td class="s">=item $JSON::AUTOCONVERT</td></tr>
+<tr><td class="h"><a name="1779"></a>1779</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1780"></a>1780</td><td></td><td></td><td></td><td></td><td class="s">Needless. C&lt;JSON&gt; backend modules have the round-trip integrity.</td></tr>
+<tr><td class="h"><a name="1781"></a>1781</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1782"></a>1782</td><td></td><td></td><td></td><td></td><td class="s">=item $JSON::UTF8</td></tr>
+<tr><td class="h"><a name="1783"></a>1783</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1784"></a>1784</td><td></td><td></td><td></td><td></td><td class="s">Needless because C&lt;JSON&gt; (JSON::XS/JSON::PP) sets</td></tr>
+<tr><td class="h"><a name="1785"></a>1785</td><td></td><td></td><td></td><td></td><td class="s">the UTF8 flag on properly.</td></tr>
+<tr><td class="h"><a name="1786"></a>1786</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1787"></a>1787</td><td></td><td></td><td></td><td></td><td class="s">    # With UTF8-flagged strings</td></tr>
+<tr><td class="h"><a name="1788"></a>1788</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1789"></a>1789</td><td></td><td></td><td></td><td></td><td class="s">    $json-&gt;allow_nonref;</td></tr>
+<tr><td class="h"><a name="1790"></a>1790</td><td></td><td></td><td></td><td></td><td class="s">    $str = chr(1000); # UTF8-flagged</td></tr>
+<tr><td class="h"><a name="1791"></a>1791</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1792"></a>1792</td><td></td><td></td><td></td><td></td><td class="s">    $json_text  = $json-&gt;utf8(0)-&gt;encode($str);</td></tr>
+<tr><td class="h"><a name="1793"></a>1793</td><td></td><td></td><td></td><td></td><td class="s">    utf8::is_utf8($json_text);</td></tr>
+<tr><td class="h"><a name="1794"></a>1794</td><td></td><td></td><td></td><td></td><td class="s">    # true</td></tr>
+<tr><td class="h"><a name="1795"></a>1795</td><td></td><td></td><td></td><td></td><td class="s">    $json_text  = $json-&gt;utf8(1)-&gt;encode($str);</td></tr>
+<tr><td class="h"><a name="1796"></a>1796</td><td></td><td></td><td></td><td></td><td class="s">    utf8::is_utf8($json_text);</td></tr>
+<tr><td class="h"><a name="1797"></a>1797</td><td></td><td></td><td></td><td></td><td class="s">    # false</td></tr>
+<tr><td class="h"><a name="1798"></a>1798</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1799"></a>1799</td><td></td><td></td><td></td><td></td><td class="s">    $str = '&quot;' . chr(1000) . '&quot;'; # UTF8-flagged</td></tr>
+<tr><td class="h"><a name="1800"></a>1800</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1801"></a>1801</td><td></td><td></td><td></td><td></td><td class="s">    $perl_scalar  = $json-&gt;utf8(0)-&gt;decode($str);</td></tr>
+<tr><td class="h"><a name="1802"></a>1802</td><td></td><td></td><td></td><td></td><td class="s">    utf8::is_utf8($perl_scalar);</td></tr>
+<tr><td class="h"><a name="1803"></a>1803</td><td></td><td></td><td></td><td></td><td class="s">    # true</td></tr>
+<tr><td class="h"><a name="1804"></a>1804</td><td></td><td></td><td></td><td></td><td class="s">    $perl_scalar  = $json-&gt;utf8(1)-&gt;decode($str);</td></tr>
+<tr><td class="h"><a name="1805"></a>1805</td><td></td><td></td><td></td><td></td><td class="s">    # died because of 'Wide character in subroutine'</td></tr>
+<tr><td class="h"><a name="1806"></a>1806</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1807"></a>1807</td><td></td><td></td><td></td><td></td><td class="s">See to L&lt;JSON::XS/A FEW NOTES ON UNICODE AND PERL&gt;.</td></tr>
+<tr><td class="h"><a name="1808"></a>1808</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1809"></a>1809</td><td></td><td></td><td></td><td></td><td class="s">=item $JSON::UnMapping</td></tr>
+<tr><td class="h"><a name="1810"></a>1810</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1811"></a>1811</td><td></td><td></td><td></td><td></td><td class="s">Disable. See to L&lt;MAPPING&gt;.</td></tr>
+<tr><td class="h"><a name="1812"></a>1812</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1813"></a>1813</td><td></td><td></td><td></td><td></td><td class="s">=item $JSON::SelfConvert</td></tr>
+<tr><td class="h"><a name="1814"></a>1814</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1815"></a>1815</td><td></td><td></td><td></td><td></td><td class="s">This option was deleted.</td></tr>
+<tr><td class="h"><a name="1816"></a>1816</td><td></td><td></td><td></td><td></td><td class="s">Instead of it, if a givien blessed object has the C&lt;TO_JSON&gt; method,</td></tr>
+<tr><td class="h"><a name="1817"></a>1817</td><td></td><td></td><td></td><td></td><td class="s">C&lt;TO_JSON&gt; will be executed with C&lt;convert_blessed&gt;.</td></tr>
+<tr><td class="h"><a name="1818"></a>1818</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1819"></a>1819</td><td></td><td></td><td></td><td></td><td class="s">  $json-&gt;convert_blessed-&gt;encode($bleesed_hashref_or_arrayref)</td></tr>
+<tr><td class="h"><a name="1820"></a>1820</td><td></td><td></td><td></td><td></td><td class="s">  # if need, call allow_blessed</td></tr>
+<tr><td class="h"><a name="1821"></a>1821</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1822"></a>1822</td><td></td><td></td><td></td><td></td><td class="s">Note that it was C&lt;toJson&gt; in old version, but now not C&lt;toJson&gt; but C&lt;TO_JSON&gt;.</td></tr>
+<tr><td class="h"><a name="1823"></a>1823</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1824"></a>1824</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
+<tr><td class="h"><a name="1825"></a>1825</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1826"></a>1826</td><td></td><td></td><td></td><td></td><td class="s">=head1 TODO</td></tr>
+<tr><td class="h"><a name="1827"></a>1827</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1828"></a>1828</td><td></td><td></td><td></td><td></td><td class="s">=over</td></tr>
+<tr><td class="h"><a name="1829"></a>1829</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1830"></a>1830</td><td></td><td></td><td></td><td></td><td class="s">=item example programs</td></tr>
+<tr><td class="h"><a name="1831"></a>1831</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1832"></a>1832</td><td></td><td></td><td></td><td></td><td class="s">=back</td></tr>
+<tr><td class="h"><a name="1833"></a>1833</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1834"></a>1834</td><td></td><td></td><td></td><td></td><td class="s">=head1 THREADS</td></tr>
+<tr><td class="h"><a name="1835"></a>1835</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1836"></a>1836</td><td></td><td></td><td></td><td></td><td class="s">No test with JSON::PP. If with JSON::XS, See to L&lt;JSON::XS/THREADS&gt;.</td></tr>
+<tr><td class="h"><a name="1837"></a>1837</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1838"></a>1838</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1839"></a>1839</td><td></td><td></td><td></td><td></td><td class="s">=head1 BUGS</td></tr>
+<tr><td class="h"><a name="1840"></a>1840</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1841"></a>1841</td><td></td><td></td><td></td><td></td><td class="s">Please report bugs relevant to C&lt;JSON&gt; to E&lt;lt&gt;makamaka[at]cpan.orgE&lt;gt&gt;.</td></tr>
+<tr><td class="h"><a name="1842"></a>1842</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1843"></a>1843</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1844"></a>1844</td><td></td><td></td><td></td><td></td><td class="s">=head1 SEE ALSO</td></tr>
+<tr><td class="h"><a name="1845"></a>1845</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1846"></a>1846</td><td></td><td></td><td></td><td></td><td class="s">Most of the document is copied and modified from JSON::XS doc.</td></tr>
+<tr><td class="h"><a name="1847"></a>1847</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1848"></a>1848</td><td></td><td></td><td></td><td></td><td class="s">L&lt;JSON::XS&gt;, L&lt;JSON::PP&gt;</td></tr>
+<tr><td class="h"><a name="1849"></a>1849</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1850"></a>1850</td><td></td><td></td><td></td><td></td><td class="s">C&lt;RFC4627&gt;(L&lt;http://www.ietf.org/rfc/rfc4627.txt&gt;)</td></tr>
+<tr><td class="h"><a name="1851"></a>1851</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1852"></a>1852</td><td></td><td></td><td></td><td></td><td class="s">=head1 AUTHOR</td></tr>
+<tr><td class="h"><a name="1853"></a>1853</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1854"></a>1854</td><td></td><td></td><td></td><td></td><td class="s">Makamaka Hannyaharamitu, E&lt;lt&gt;makamaka[at]cpan.orgE&lt;gt&gt;</td></tr>
+<tr><td class="h"><a name="1855"></a>1855</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1856"></a>1856</td><td></td><td></td><td></td><td></td><td class="s">JSON::XS was written by  Marc Lehmann &lt;schmorp[at]schmorp.de&gt;</td></tr>
+<tr><td class="h"><a name="1857"></a>1857</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1858"></a>1858</td><td></td><td></td><td></td><td></td><td class="s">The relese of this new version owes to the courtesy of Marc Lehmann.</td></tr>
+<tr><td class="h"><a name="1859"></a>1859</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1860"></a>1860</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1861"></a>1861</td><td></td><td></td><td></td><td></td><td class="s">=head1 COPYRIGHT AND LICENSE</td></tr>
+<tr><td class="h"><a name="1862"></a>1862</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1863"></a>1863</td><td></td><td></td><td></td><td></td><td class="s">Copyright 2005-2011 by Makamaka Hannyaharamitu</td></tr>
+<tr><td class="h"><a name="1864"></a>1864</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1865"></a>1865</td><td></td><td></td><td></td><td></td><td class="s">This library is free software; you can redistribute it and/or modify</td></tr>
+<tr><td class="h"><a name="1866"></a>1866</td><td></td><td></td><td></td><td></td><td class="s">it under the same terms as Perl itself. </td></tr>
+<tr><td class="h"><a name="1867"></a>1867</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1868"></a>1868</td><td></td><td></td><td></td><td></td><td class="s">=cut</td></tr>
+<tr><td class="h"><a name="1869"></a>1869</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1870"></a>1870</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
+<tr><td class="h"><a name="1871"></a>1871</td><td></td><td></td><td></td><td></td><td class="s">;</td></tr>
+</tbody></table></div>
+        
+            <script type="text/javascript"> $(document).ready(function() { 
+
+        $("#subs_table").tablesorter({
+            sortList: [[3,1]],
+            headers: {
+                3: { sorter: 'fmt_time' },
+                4: { sorter: 'fmt_time' }
+            }
+        });
+    
+ } ); </script>
+        
+        <div class="footer">Report produced by the
+        <a href="http://search.cpan.org/dist/Devel-NYTProf/">NYTProf 4.06</a>
+        Perl profiler, developed by
+        <a href="http://www.linkedin.com/in/timbunce">Tim Bunce</a> and
+        <a href="http://code.nytimes.com">Adam Kaplan</a>.
+        </div>
+        <br /><br /><br /><br /><br /><br /><br /><br /><br /><br />
+    </body></html>
\ No newline at end of file
Unnamed repository; edit this file 'description' to name the repository.