#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

#include "const-c.inc"

MODULE = MyModule		PACKAGE = MyModule		

INCLUDE: const-xs.inc

int
RegisterCB (SV *SubRef)

    CODE:
    
    ENTER;
    SAVETMPS;
    PUSHMARK(SP);
    
    XPUSHs(sv_2mortal(newSVpv("Some event",0)));
    XPUSHs(sv_2mortal(newSVpv("Some pdata",0)));
    
    PUTBACK;
    call_sv(SubRef, G_DISCARD);
    
    FREETMPS;
    LEAVE;
    
    RETVAL = 1;
    OUTPUT:
        RETVAL