#define PERL_NO_GET_CONTEXT #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include MODULE = MyModule PACKAGE = MyModule double sin(double x) #### package MyModule; use strict; use warnings; use Exporter qw( import ); use DynaLoader qw( ); our @EXPORT_OK = qw( sin ); bootstrap __PACKAGE__; 1;