#! perl -slw
use strict;
use Inline 'NoClean', 'FORCE', 'INFO' ;
use Inline Config => WARNINGS => 4;
use Inline 'C' => 'DATA', NAME =>'test';


sub calledBack{ print "calledBack with: @_"; }

setCallback( \&calledBack );

callback();

__DATA__
__C__

SV* g_callback = 0;

int setCallback ( SV*code ) {
    g_callback = code;
    return 0;
}

int callback () {
    call_sv( g_callback, G_VOID );
    return 0;
}