[Feature request] xPDOObject::toJSON() can not include related objects

[spectrum48k]

It seems to me that it would be encoding objects in json including related objects. Perhaps it's enough to add an optional parameter to this method like the xPDOObject :: toArray () method and pass it to the arguments to the toArray() call inside the xPDOObject :: toJSON() method