| Current Path : /proc/thread-self/root/usr/share/doc/perl-Inline/example/modules/Math-Simple-1.23/ |
| Current File : //proc/thread-self/root/usr/share/doc/perl-Inline/example/modules/Math-Simple-1.23/Simple.pm |
package
Math::Simple;
$VERSION = '1.23';
use base 'Exporter';
@EXPORT_OK = qw(add subtract);
use strict;
use Inline C => 'DATA',
VERSION => '1.23',
NAME => 'Math::Simple';
1;
__DATA__
__C__
int add (int x, int y) {
return x + y;
}
int subtract (int x, int y) {
return x - y;
}