TYPEMAP
foo* T_FOO

INPUT
T_FOO
    $var = ($type)SvFoo($var);

##</code><code>##

void
my_xsub(...)
    PREINIT:
        int i;
        foo **foos = NULL;
    CODE:
        foos = (foo**)malloc(sizeof(foo*) * items);
        for (i = 0; i < items; i++) {
            foos[i] = SvFoo(ST(i));
        }
        # do something with foos

##</code><code>##

foo*
SvFoo(SV* foo) {
    SV* ret;
    IV tmp = SvIV((SV*)SvRV(foo));
    ret = INT2PTR(foo*, tmp);
}