################
package FOO;
use strict;
use warnings;

use Inline CPP => Config =>
 BUILD_NOISY => 1, 
 ;

use Inline CPP => <<'EOC';

int version(void * p) {
  return 42;
}

EOC

my $sv = 'whatever';
my $obj = bless \$sv, 'FOO';
print $obj->version();
################