void setCallback( SV *cb1, SV* cb2, SV *cb3, SV *cb4 ) {
    saved = Perl_get_context();