Plan 9 from Bell Labs’s /usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/ext/Devel/PPPort/module3.c
#include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include "ppport.h" void test3(void) { newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_3", newSViv(3)); }