(Perl) Create more Complex JSON Document

Sample code to create the following JSON document:

    {  
        "Title": "The Cuckoo's Calling",  
        "Author": "Robert Galbraith",  
        "Genre": "classic crime novel",  
        "Detail": {  
            "Publisher": "Little Brown",  
            "Publication_Year": 2013,  
            "ISBN-13": 9781408704004,  
            "Language": "English",  
            "Pages": 494  
        },  
        "Price": [  
            {  
                "type": "Hardcover",  
                "price": 16.65  
            },  
            {  
                "type": "Kindle Edition",  
                "price": 7.00  
            }  
        ]  
    }  

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

# The only reason for failure in the following lines of code would be an out-of-memory condition..

# An index value of -1 is used to append at the end.
$index = -1;

$success = $json->AddStringAt(-1,"Title","The Cuckoo's Calling");
$success = $json->AddStringAt(-1,"Author","Robert Galbraith");
$success = $json->AddStringAt(-1,"Genre","classic crime novel");

# Let's create the Detail JSON object:
$success = $json->AddObjectAt(-1,"Detail");
# detail is a JsonObject
$detail = $json->ObjectAt($json->get_Size() - 1);
$success = $detail->AddStringAt(-1,"Publisher","Little Brown");
$success = $detail->AddIntAt(-1,"Publication_Year",2013);
$success = $detail->AddNumberAt(-1,"ISBN-13","9781408704004");
$success = $detail->AddStringAt(-1,"Language","English");
$success = $detail->AddIntAt(-1,"Pages",494);

# Add the array for Price
$success = $json->AddArrayAt(-1,"Price");
# aPrice is a JsonArray
$aPrice = $json->ArrayAt($json->get_Size() - 1);

# Entry entry in aPrice will be a JSON object.

# Append a new/empty ojbect to the end of the aPrice array.
$success = $aPrice->AddObjectAt(-1);
# Get the object that was just appended.
# priceObj is a JsonObject
$priceObj = $aPrice->ObjectAt($aPrice->get_Size() - 1);
$success = $priceObj->AddStringAt(-1,"type","Hardcover");
$success = $priceObj->AddNumberAt(-1,"price","16.65");

$success = $aPrice->AddObjectAt(-1);
# priceObj is a JsonObject
$priceObj = $aPrice->ObjectAt($aPrice->get_Size() - 1);
$success = $priceObj->AddStringAt(-1,"type","Kindle Edition");
$success = $priceObj->AddNumberAt(-1,"price","7.00");

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