The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
TYPEMAP
InlineJavaJNIVM * 	T_PTROBJ_IJVM


OUTPUT

T_PTROBJ_IJVM
	sv_setref_pv($arg, \"Inline::Java::JNI\", (void *)$var) ;


INPUT

T_PTROBJ_IJVM
	if (sv_derived_from($arg, \"Inline::Java::JNI\")) {
	    $var = ($type)SvIV((SV*)SvRV($arg)) ;
	}
	else{
		if (SvOK($arg)){
		    croak(\"$var is not of type Inline::Java::JNI\") ;
		}
	}