Inline-0.32 supports 'global loading'

[Brian Ingerson]

In the forthcoming Inline-0.32, you will be able to expose symbols
between shared objects.

----8<----
use Inline Global;
use Inline C;
use Inline C;

my ($a, $b) = @ARGV;

print "$a ^ 2 + $b ^ 2 = ", sum_squares($a, $b), "\n";

__END__

__C__
extern int squared(int);

int squared(int x) {
    return x * x;
}

__C__
int sum_squares(int a, int b) {
    return squared(a) + squared(b);
}
----8<----

Cheers, Brian

-- 
perl -le 'use Inline C=>q{SV*JAxH(char*x){return newSVpvf
("Just Another %s Hacker",x);}};print JAxH+Perl'