Select Code to Download

my $foo = undef;
my $bar = wrap_create_bar(\$foo);
...
    if(defined(${$_[0]}) {create_bar($_[0]}
    else {create_bar(\"\0")}
}

use warnings;
use Inline C => Config => BUILD_NOISY => 1;
...
    if(defined($x)) {foo1($x)}
    else {foo1("\0")}
}