Select Code to Download

#include "EXTERN.h"
#include "perl.h"
...
    RETVAL = 1;
    OUTPUT:
        RETVAL

use MyModule;
use warnings;
...
#This line is printed as $cb_done becomes 1 
#in the main of the perl script
print "CB was invoked : $cb_done\n";

C:\gash\MyModule>test.pl
Name "main::pdata" used only once: possible typo at C:\gash\MyModule\t
+est.pl line 11.
Name "main::status" used only once: possible typo at C:\gash\MyModule\
+test.pl line 17.
event : Some event
CB was invoked : 1