title: from_json and decode_json in perl not working as expected
body: <p>I am having a json like below.</p>
  
  <pre><code>$response = {"entries":[{"content":{"eStatus":0,"id":"0","enabled":false,"isOK":false,}}]}
   $responseContent = from_json($response);
  </code></pre>
  
  <p>when i am using from_json or decode_json within my perl code I get following as the converted json.</p>
  
  <pre><code>                     'content' =&gt; {
                                        'id' =&gt; '0',
                                        'esrsVeAddress' =&gt; '',
                                        'isOK' =&gt; bless( do{\(my $o = 0)}, 'JSON::PP::Boolean' ),
                                        'enabled' =&gt; $VAR1-&gt;{'entries'}[0]{'content'}{'isOK'},
                                        'eStatus' =&gt; 0
                                      }
  </code></pre>
  
  <p>When value of element is not boolean ( true/false ) conversion happens properly but when its boolean then output is corrupted.</p>
  
  <p>If you will see value of element 'enabled' and 'isOK' both are wrong.</p>
  
  <p>Am i using wrong function 'from_json' or 'decode_json' here.</p>
  
  <p>Any suggestions or guidance is appreciated. </p>
  
  <p>This is the way i am trying to use value of element isOK and enabled.</p>
  
  <pre><code>  if (  $isOK = $responseContent-&gt;{'entries'}[0]-&gt;{'content'}-&gt;     {'isOK'} eq "1" ) {
       c4lx_log "value is found to be true and so do some business logic";
   }
   else {
      c4lx_log "value is found to be false and so dont do anything here";
   }
  </code></pre>
  
  <p>NOTE:
  Input to fucntion 'from_json' or 'decode_json' is coming from the REST response in format as shown above. I have verified that input is passed correctly and as expected. Its just the conversion that is issue here.</p>