int
MyLib::strToInt(passfail)
bool passfail;
CODE:
if(passfail) {
printf("It's true in xs. %i\n", passfail);
} else {
printf("It's false in xs. %i\n", passfail);
}
RETVAL = THIS->strToInt(&passfail);
if(passfail) {
printf("It's true out xs. %i\n", passfail);
} else {
printf("It's false out xs. %i\n", passfail);
}
OUTPUT:
RETVAL
passfail
####
my $passfail = 0;
my $tmp = MyLib->new("12");
my $t = $tmp->strToInt(\$passfail);
print "It's $t\n" if $passfail eq 1;
####
It's false in xs. 0
It's true out xs. 1