Region* T_PKGIV
Scheme* T_PKGIV

INPUT

T_PKGIV
	/* @{[$tt = $type, $tt =~ s/\W//g]} */
	if (sv_isa($arg, PKG($tt)))
		$var = ($type)SvIV((SV*)SvRV($arg));
	else
		croak(\"$var is not a \" PKG($tt) \" object\");

OUTPUT

T_PKGIV
	/* @{[$tt = $type, $tt =~ s/\W//g]} */
	if ($var)
		sv_setref_iv($arg, PKG($tt), (IV)$var);
