1 2 #include "EXTERN.h" 3 #include "perl.h" 4 #include "XSUB.h" 5 6 #define NEED_newCONSTSUB_GLOBAL 7 #include "ppport.h" 8 test2(void)9 void test2(void) 10 { 11 newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_2", newSViv(2)); 12 } 13