Select Code to Download

void call_perl(void)
{
...
    /* use the static (singleton) version of the perl interpreter */
    my_perl = get_perl("module_init.pm");

PerlInterpreter* get_perl(char *perl_file)
{
...
    /* exitstatus = perl_run( my_perl ); */
    return my_perl;
}

    perl_call_pv("module::sub", G_EVAL|G_DISCARD|G_NOARGS|G_VOID) ;

    c_exe::c_function($self->{value},$self->{channel});

package c_exe;
*c_function = *c_exec::c_function;

XS(_wrap_c_function) {
  {
...
    ... a bunch of code to handle return ...
  }
}

function c_exe::c_function not found at...