The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Inline->init() ;

use Inline Config =>
    DIRECTORY => '_Inline_test',
    _TESTING => 1,
    REWRITE_CONFIG_FILE => 1;

use Inline 'Foo';
is(add(3, 7), 10, 'foo test');

1;

__DATA__

__Foo__

foo-sub add {
    foo-return $_[0] + $_[1];
}