view release on metacpan or  search on metacpan

cache.xs  view on Meta::CPAN

    if (!val || !SvOK(val)) {
        croak("add value argument must be an actual value");
    }
    if (!cache_add(aTHX_ cache, key, val)) {
        croak("could not add element to cache");
    }
}

void
find(Cache* cache, SV* key)
PPCODE:
{
    /* We use PPCODE because XS mortalizes the return value */
    if (!key || !SvOK(key) || !SvPOK(key)) {
        croak("find key argument must be a string");
    }
    ST(0) = cache_find(aTHX_ cache, key);
    XSRETURN(1);
}

void
visit(Cache* cache, SV* cb)
CODE: