Select Code to Download

{    
    "a": "x",
...
        "f":false
    }
}

$VAR1 = {
          'a' => 'x',
...
                 }
        };
Can't encode a value of type: JSON::XS::Boolean at test2.pl line 13

use strict;
use warnings;
...
print Dumper($result);
my $rec = XMLout( $result, RootName => 'root', SuppressEmpty => 1);
print Dumper($rec);

$VAR1 = {
          'a' => 'x',
...
  <b c="true" d="false" e="true" f="false" />
</root>
';

    elsif (JSON::XS::is_bool($node)) {
        #$node += 0;  #  this results in 1 or 0
        #$node = "$node";  #  this results in "true" or "false"
        $node = ($node) ? \1 : \0;  #  this results in \1 or \0  (whic
+h are mapped to Json true and false by encode_json...)
    }