Sending function pointers to XS

Hi,
How does one send sub pointers to XS as function pointer?

The funtion I am trying to bind is


http://www.libsdl.org/cgi/docwiki.cgi/SDL_SetEventFilter

One of the paramater requires a function in the format of

int typedef (SDL_EventFilter *)(const SDL_Event * Event)


What we would like to do is send something like

SDL::Events::set_event_filter( \sub {} );


Kartik Thakore