################
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();
################
####
################
package FOO;
use strict;
use warnings;
use Inline CPP => Config =>
INC => '/path/to/include',
LIBS => '-L/path/to/library -lmy_lib',
BUILD_NOISY => 1,
;
use Inline CPP => <<'EOC';
#include
int wrap_version(SV * p) {
return version(p);
}
EOC
my $sv = 'whatever';
my $obj = bless \$sv, 'FOO';
print $obj->wrap_version();
################
####
################
package FOO;
use strict;
use warnings;
use Inline CPP => Config =>
PREFIX => 'wrap_',
INC => '/path/to/include',
LIBS => '-L/path/to/library -lmy_lib',
BUILD_NOISY => 1,
;
use Inline CPP => <<'EOC';
#include
int wrap_version(SV * p) {
return version(p);
}
EOC
my $sv = 'whatever';
my $obj = bless \$sv, 'FOO';
print $obj->version();
################