void
registCallback(cb)
    SV* cb;
    PROTOTYPE: $
    PPCODE:
        if (callback_ref == (SV*)NULL) {
            callback_ref = newSVsv((SV*)cb);
        } else {
            SvSetSV(callback_ref, cb);
        }