Hello monks. I have a COM object which implements multiple interfaces. One particular interface defined in the IDL is a callback mechanism for clients to implement. I need to know how to implement this interface in perl (obviously).

interface IWVObjectEvents : IDispatch
{
  [id(1), helpstring("method objectInserted")] HRESULT objectInserted(
+[in] IWVObject *aObject);
  [id(2), helpstring("method objectUpdated")] HRESULT objectUpdated([i
+n] IWVObject *aObject);
  [id(3), helpstring("method objectRemoved")] HRESULT objectRemoved([i
+n] IWVObject *aObject);
    };
[download]

My client program need to handle these events, but I'm not sure of the perl syntactics. I can't find info about implementing perl interfaces anywhere. Can anybody help me? thanks, Michael