Perl Requires Chilkat v11.4.0+

Example: JsonObject.NewObjectOf method

Demonstrates the NewObjectOf method. Perl

use chilkat();

$success = 0;

$car = "{\"make\":\"Toyota\",\"model\":\"Camry\",\"year\":2022,\"color\":\"silver\",\"engine\":{\"type\":\"inline-4\",\"fuel\":\"gasoline\",\"horsepower\":203},\"features\":[\"bluetooth\",\"backup camera\",\"adaptive cruise control\",\"lane assist\"],\"isElectric\":false}";

$json = chilkat::CkJsonObject->new();

$json->UpdateString("test","abc");

$success = $json->NewObjectOf("car",$car);
if ($success == 0) {
    print $json->lastErrorText() . "\r\n";
    exit;
}

$json->put_EmitCompact(0);
print $json->emit() . "\r\n";

#  Result:

#  {
#    "test": "abc",
#    "car": {
#      "make": "Toyota",
#      "model": "Camry",
#      "year": 2022,
#      "color": "silver",
#      "engine": {
#        "type": "inline-4",
#        "fuel": "gasoline",
#        "horsepower": 203
#      },
#      "features": [
#        "bluetooth",
#        "backup camera",
#        "adaptive cruise control",
#        "lane assist"
#      ],
#      "isElectric": false
#    }
#  }