6 #define NEED_newCONSTSUB
11 #define MY_CXT_KEY "Devel::PPPort::_guts" XS_VERSION
14 /* Put Global Data in here */
22 newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_1", newSViv(1));
25 extern void test2(void);
26 extern void test3(void);
28 MODULE = Devel::PPPort PACKAGE = Devel::PPPort
33 /* If any of the fields in the my_cxt_t struct need
34 to be initialised, do it here.
54 RETVAL = (SvREFCNT(sv) == 2);
65 RETVAL = (SvREFCNT(sv) == 1);
74 RETVAL = (newSVsv(&PL_sv_undef));
83 RETVAL = (newSVsv(&PL_sv_yes));
92 RETVAL = (newSVsv(&PL_sv_no));
102 PL_na = strlen(string);
114 RETVAL = (newSVsv(boolSV(value)));
126 RETVAL = newSVpvn(string, len);
135 RETVAL = newSVsv(DEFSV);
144 RETVAL = SvTRUE(ERRSV);
154 RETVAL = (MY_CXT.dummy == 42);
165 RETVAL = (MY_CXT.dummy == 43);