// libtwintree.c: #include "libtwintree.h" int return_one() { return 1; } int return_zero() { return 0; } #### #include "EXTERN.h" #include "perl.h" #include "XSUB.h" // libtwintree.c: #include "libtwintree.h" int return_one() { return 1; } int return_zero() { return 0; } MODULE = TwinTree PACKAGE = TwinTree PROTOTYPES: DISABLE int return_one () int return_zero () #### package TwinTree; use strict; require Exporter; *import = \&Exporter::import; require DynaLoader; $TwinTree::VERSION = '0.01'; DynaLoader::bootstrap TwinTree $TwinTree::VERSION; @TwinTree::EXPORT = (); @TwinTree::EXPORT_OK = (); sub dl_load_flags {0} # Prevent DynaLoader from complaining and croaking 1; #### use ExtUtils::MakeMaker; my %options = %{ { 'TYPEMAPS' => [], 'NAME' => 'TwinTree', 'INC' => '', 'VERSION' => '0.01' } }; WriteMakefile(%options); # Remove the Makefile dependency. Causes problems on a few systems. sub MY::makefile { '' }