Help for this page
#include "EXTERN.h" #include "perl.h" ... PROTOTYPE: $ PPCODE: XPUSHs(sv_2mortal( newSViv(runCallback(param)) ));
package Callback; ... 1;
#!/usr/bin/env perl use strict; ... print "MESSAGE: $message\n"; }