The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
mpq_t *		MPQ
mpz_t *		MPZ
mpf_t * 		MPF
mpfr_t *		MPFR
gmp_randstate_t *	GMP_RANDSTATE

INPUT
MPQ
            $var = INT2PTR($type, SvIV(SvRV($arg)))
MPZ
            $var = INT2PTR($type, SvIV(SvRV($arg)))
MPF
            $var = INT2PTR($type, SvIV(SvRV($arg)))
MPFR
            $var = INT2PTR($type, SvIV(SvRV($arg)))
GMP_RANDSTATE
            $var = INT2PTR($type, SvIV(SvRV($arg)))