The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
MLEHMANN / Async-Interrupt-1.2 / typemap 
async_t *	T_ASYNC
s_epipe *	T_EPIPE

INPUT

T_ASYNC
	$var = SvASYNC ($arg);

T_EPIPE
	$var = INT2PTR (s_epipe *, SvIVX (SvRV ($arg)))