1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
#include <config.h> #define PERL_NO_GET_CONTEXT #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include "ppport.h" MODULE = TestXS PACKAGE = TestXS PREFIX = xspara_ PROTOTYPES: ENABLE int xspara_init (int, char *) CODE: puts ("message from XS module\n"); RETVAL = 1; OUTPUT: RETVAL