##
sub new {
my ($class) = shift;
my $obj = $class->xs_create();
bless $obj;
$obj->_set_context();
return $obj;
}
##
##
void callp( SV* data)
{
//dTHX;
PERL_SET_CONTEXT(mine);
{
dMY_CXT;
dSP;
ENTER; SAVETMPS;
PUSHMARK(SP);
PUTBACK;
perl_call_sv(MY_CXT.callback,G_DISCARD|G_NOARGS);
SPAGAIN;
PUTBACK;FREETMPS;LEAVE;
}
}