view release on metacpan or  search on metacpan

Acme-Hidek.xs  view on Meta::CPAN

#ifdef USE_PPPORT
#include "ppport.h"
#endif

static IV
hidek_get_age(pTHX_ SV* const hidek) {
    dSP;
    IV retval;
    PUSHMARK(SP);
    XPUSHs(hidek);
    PUTBACK;
    call_method("age", G_SCALAR);
    SPAGAIN;
    retval = POPi;
    PUTBACK;
    return retval;
}

MODULE = Acme::Hidek	PACKAGE = Acme::Hidek

PROTOTYPES: DISABLE

void
we_love_hidek(SV* hidek)
CODE: