- or download this
package Whatever;
BEGIN {
...
__DATA__
__CPP__
...C++ code... (ok I lied; I'm using Inline::CPP, not Inline::C)
- or download this
use Inline with => 'MyScriptInline';
BEGIN {
...
}
use Inline(CPP => $inline_code_file, FILTERS => \&find_code);
Inline->init;
- or download this
require DynaLoader;
{
...
push @{$pkg . "::ISA"}, "DynaLoader";
bootstrap $pkg;
}