%{ #include #include #include %} %module{Box2D}; %name{Box2D::PerlRayCastCallback} class PerlRayCastCallback { ~PerlRayCastCallback(); %{ PerlRayCastCallback* PerlRayCastCallback::new( callback ); SV* callback CODE: RETVAL = new PerlRayCastCallback( callback ); OUTPUT: RETVAL %} };