h2xs -A -n three_test

cd three_test

#ifndef INCLUDED_DUCK_H#define INCLUDED_DUCK_H 1#include <string>using std::string;class Duck{public:    Duck(char*);    char* getName();    void swim();    ~Duck(){}private:    bool swimming;    string name;};#endif /* INCLUDED_DUCK_H */

#include "Duck.h"#include <cstdio>using namespace std;Duck::Duck(char* n) :    swimming(false), name(n){}const char* Duck::getName(){    return name.c_str();}void Duck::swim(){    if (!swimming)    {        printf("%s, ok .. go swimming\n", name.c_str());        swimming = true;    }    else    {        printf("%s is already swimming , stop\n", name.c_str());        swimming = false;    }    return;}

g++ -g -Wall -fpic -shared -o libduck.so Duck.cpp

cp libduck.so three_test;cp Duck.h three_test;

# "perlobject.map"  Dean Roehrich, version 19960302## TYPEMAPs## HV *      -> unblessed Perl HV object.# AV *      -> unblessed Perl AV object.## INPUT/OUTPUT maps## O_*    -> opaque blessed objects# T_*    -> opaque blessed or unblessed objects## O_OBJECT  -> link an opaque C or C++ object to a blessed Perl object.# T_OBJECT  -> link an opaque C or C++ object to an unblessed Perl object.# O_HvRV -> a blessed Perl HV object.# T_HvRV -> an unblessed Perl HV object.# O_AvRV -> a blessed Perl AV object.# T_AvRV -> an unblessed Perl AV object.TYPEMAPHV *     T_HvRVAV *     T_AvRV######################################################################OUTPUT# The Perl object is blessed into ‘CLASS‘, which should be a# char* having the name of the package for the blessing.O_OBJECT   sv_setref_pv( $arg, CLASS, (void*)$var );T_OBJECT   sv_setref_pv( $arg, Nullch, (void*)$var );# Cannot use sv_setref_pv() because that will destroy# the HV-ness of the object.  Remember that newRV() will increment# the refcount.O_HvRV# "perlobject.map"  Dean Roehrich, version 19960302## TYPEMAPs## HV *      -> unblessed Perl HV object.# AV *      -> unblessed Perl AV object.## INPUT/OUTPUT maps## O_*    -> opaque blessed objects# T_*    -> opaque blessed or unblessed objects## O_OBJECT  -> link an opaque C or C++ object to a blessed Perl object.# T_OBJECT  -> link an opaque C or C++ object to an unblessed Perl object.# O_HvRV -> a blessed Perl HV object.# T_HvRV -> an unblessed Perl HV object.# O_AvRV -> a blessed Perl AV object.# T_AvRV -> an unblessed Perl AV object.TYPEMAPHV *     T_HvRVAV *     T_AvRV######################################################################OUTPUT# The Perl object is blessed into ‘CLASS‘, which should be a# char* having the name of the package for the blessing.O_OBJECT   sv_setref_pv( $arg, CLASS, (void*)$var );T_OBJECT   sv_setref_pv( $arg, Nullch, (void*)$var );# Cannot use sv_setref_pv() because that will destroy# the HV-ness of the object.  Remember that newRV() will increment# the refcount.O_HvRV   $arg = sv_bless( newRV((SV*)$var), gv_stashpv(CLASS,1) );T_HvRV   $arg = newRV((SV*)$var);# Cannot use sv_setref_pv() because that will destroy# the AV-ness of the object.  Remember that newRV() will increment# the refcount.O_AvRV   $arg = sv_bless( newRV((SV*)$var), gv_stashpv(CLASS,1) );T_AvRV   $arg = newRV((SV*)$var);######################################################################INPUTO_OBJECT   if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) )      $var = ($type)SvIV((SV*)SvRV( $arg ));   else{      warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );      XSRETURN_UNDEF;   }T_OBJECT   if( SvROK($arg) )      $var = ($type)SvIV((SV*)SvRV( $arg ));   else{      warn( \"${Package}::$func_name() -- $var is not an SV reference\" );      XSRETURN_UNDEF;   }O_HvRV   if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVHV) )      $var = (HV*)SvRV( $arg );   else {      warn( \"${Package}::$func_name() -- $var is not a blessed HV reference\" );      XSRETURN_UNDEF;   }T_HvRV   if( SvROK($arg) && (SvTYPE(SvRV($arg)) == SVt_PVHV) )      $var = (HV*)SvRV( $arg );   else {      warn( \"${Package}::$func_name() -- $var is not an HV reference\" );      XSRETURN_UNDEF;   }O_AvRV   if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVAV) )      $var = (AV*)SvRV( $arg );   else {      warn( \"${Package}::$func_name() -- $var is not a blessed AV reference\" );      XSRETURN_UNDEF;   }T_AvRV   if( SvROK($arg) && (SvTYPE(SvRV($arg)) == SVt_PVAV) )      $var = (AV*)SvRV( $arg );   else {      warn( \"${Package}::$func_name() -- $var is not an AV reference\" );      XSRETURN_UNDEF;   }

cp perlobject.map three_test

touch three_test/typemap

TYPEMAPDuck* O_OBJECT

#use 5.014002;use ExtUtils::MakeMaker;$CC = ‘g++‘;# See lib/ExtUtils/MakeMaker.pm for details of how to influence# the contents of the Makefile that is written.WriteMakefile(    NAME              => ‘three_test‘,    VERSION_FROM      => ‘lib/three_test.pm‘, # finds $VERSION    PREREQ_PM         => {}, # e.g., Module::Name => 1.1    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005      (ABSTRACT_FROM  => ‘lib/three_test.pm‘, # retrieve abstract from module       AUTHOR         => ‘root <root@>‘) : ()),    LIBS              => [‘-L./ -lduck‘], # e.g., ‘-lm‘    DEFINE            => ‘‘, # e.g., ‘-DHAVE_SOMETHING‘    ‘CC‘              => $CC,    ‘LD‘              => ‘$(CC)‘,    INC               => ‘-I.‘, # e.g., ‘-I. -I/usr/include/other‘   # Un-comment this if you add C files to link with later:    # OBJECT            => ‘$(O_FILES)‘, # link all the C files too    ‘XSOPT‘           => ‘-C++‘,    ‘TYPEMAPS‘        => [‘perlobject.map‘]);

#ifdef __cplusplusextern "C"{#endif#include "EXTERN.h"#include "perl.h"#include "XSUB.h"#ifdef __cplusplus}#endif#include "ppport.h"#include "Duck.h"using namespace std;MODULE = three_test     PACKAGE = three_testDuck*Duck::new(char * name)char*Duck::getName()voidDuck::swim()voidDuck::DESTROY()

perl Makefile.PL makemake install

use three_test;my $duck = new three_test("Dan");my $name = $duck->getName();$duck->swim();$duck->swim();print "$name\n";

perl test.pl