view release on metacpan or  search on metacpan

Alter.xs  view on Meta::CPAN

        SV *sv = newSV(0);
        (void) SvUPGRADE(sv, SvIV(*type_ptr));
        return newRV_noinc(sv);
    } else {
        return NULL;
    }
}

/*
void is_xs()
PPCODE:
    ST(0) = newSViv(1);
    sv_2mortal(ST(0));
    XSRETURN(1);
*/

MODULE = Alter		PACKAGE = Alter		

SV *corona(SV *obj)
PROTOTYPE: $
PREINIT: