--- EV/typemap	2007/10/26 09:19:48	1.1
+++ EV/typemap	2007/10/26 16:50:05	1.2
@@ -1,11 +1,25 @@
-JSON *		T_JSON
+Base		T_BASE
+Event		T_EVENT
 
 INPUT
 
-T_JSON
+T_BASE
 	if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
-            && SvSTASH (SvRV ($arg)) == JSON_STASH))
-          croak (\"object is not of type JSON::XS\");
-        $var = (JSON *)SvPVX (SvRV ($arg));
+            && SvSTASH (SvRV ($arg)) == stash_base))
+          croak (\"object is not of type EV::Base\");
+        $var = (Base)SvIV (SvRV ($arg));
 
+T_EVENT
+	if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
+            && SvSTASH (SvRV ($arg)) == stash_event))
+          croak (\"object is not of type EV::Event\");
+        $var = (Event)SvPVX (SvRV ($arg));
+
+OUTPUT
+
+T_BASE
+	sv_setref_iv ($arg, "EV::Base", (IV)$var);
+
+T_EVENT
+	$arg = e_self ($var);