Perl Requires Chilkat v11.4.0+

Example: JsonObject.NewObjectOf method

Demonstrates the NewObjectOf method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $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}';

my $json = Chilkat2::JsonObject->new;

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

my $success = $json->NewObjectOf('car', $car);
if (!$success) {
    print $json->LastErrorText, "\n";
    exit;
}

$json->EmitCompact(0);
print $json->Emit(), "\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
#   }
# }