if( defined( my $r = foo() )) {
}
else {
}