Class Pxp_document.data_impl

class [< clone : 'a; node : 'a node;
       set_node : 'a node -> unit; .. >
     as 'a] data_impl : 'a -> ['a] node

let exemplar = new data_impl ext_obj

which creates an empty data node which already contains a reference to the extension ext_obj, but is otherwise empty. Use the method Pxp_document.node.create_data on the exemplar to get a filled copy of the examplar (i.e. we need two steps to create nodes).