#include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include "ppport.h" MODULE = CMethods PACKAGE = CMethods PROTOTYPES: DISABLE void x(self) HV *self PREINIT: SV **x; PPCODE: x = hv_fetch( self, "x", 1, 0 ); EXTEND(SP, 1); PUSHs(x ? *x : &PL_sv_undef); void y(self) HV *self PREINIT: SV **y; PPCODE: y = hv_fetch( self, "y", 1, 0 ); EXTEND(SP, 1); PUSHs(y ? *y : &PL_sv_undef);