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