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