Select Code to Download

     typedef struct ISpVoice ISpVoice;
     typedef struct ISpVoiceVtbl
...
     {
         struct ISpVoiceVtbl *lpVtbl;
     };

use strict;
no strict "subs";
...
    }
}

//a c file. #include it in the XS file
static char szWINOLE[] = "Win32::OLE";
...
    SV * sv
PPCODE:
    PLCOM(aTHX_ sv);

C:\Documents and Settings\Owner\Desktop>perl  sapi2pm.pl
good ole object
...
post release interface refcount is 0

C:\Documents and Settings\Owner\Desktop>