int wrap_this_foo(int x) {
  return foo(x);
}

##</code><code>##

use strict;
use warnings;

use Inline C => Config =>
 PREFIX => 'wrap_this_',
 BUILD_NOISY => 1,
 ;

use Inline C => <<'END_C';

typedef int unbind;

/* For this demo, we don't want foo
 * to bind to perl */
unbind foo(int x) {
  return x * 2;
}

int wrap_this_foo(int x){
  return foo(x);
}

END_C

print foo(16); # Outputs 32

##</code><code>##

Undefined subroutine &main::foo called at try.pl line 25.