Select Code to Download

use strict;
use warnings;
...
Outputs:
True
False

 
# plagiarised from default perl typemap

...
T_PTR
    sv_setiv($arg, PTR2IV($var));

use strict;
use warnings;
...
Outputs:
False
False