The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
%{

#include <Box2D/Box2D.h>

%}


%module{Box2D};

	enum Type
	{
		e_unknown= -1,
		e_circle = 0,
		e_polygon = 1,
		e_typeCount = 2,
	};


%name{Box2D::b2Shape} class b2Shape 
{ 

%{

int
b2Shape::GetType( )
	CODE:
		RETVAL=(int)THIS->GetType();
	OUTPUT:
		RETVAL


%}
	
};