Select Code to Download

    
    my $text = '{"a":"x","b":true}'; 
    my $result = decode_json($text);
    my $rec = XMLout( $result, RootName => 'root', SuppressEmpty => 1)
+;

    $result = {
            'a' => 'x',
            'b' => bless( do{\(my $o = 1)}, 'JSON::XS::Boolean' )
          };