view release on metacpan or  search on metacpan

Assert.xs  view on Meta::CPAN

PROTOTYPES: DISABLE

BOOT:
{
    CV* assert_cv = get_cv("Devel::Assert::assert_off", 0);
    cv_set_call_checker(assert_cv, assert_checker, (SV*)assert_cv);
}

void
assert_on(...)
PPCODE:
{
    if (items != 1) croak("Wrong number of arguments in assert() call");
    if (SvTRUE(ST(0))) XSRETURN_UNDEF;

    PUSHMARK(SP);
    EXTEND(SP, 3);

    /* B.xs declares 'make_*_object' as static, so had to borrow it */
#define push_b_object(type, ptr) STMT_START {   \
    SV* tmpsv = sv_newmortal();                 \