perl_watcher *		T_IOM_WATCHER
timer *			T_IOM_TIMER
iow *			T_IOM_IOW
pw *			T_IOM_PW
iw *			T_IOM_IW

IOM_CHAINED		T_IOM_CHAINED


INPUT

T_IOM_WATCHER
	$var = SvWATCHER ($arg);
T_IOM_TIMER
	$var = SvTIMER ($arg);
T_IOM_IOW
	$var = SvIOW ($arg);
T_IOM_PW
	$var = SvPW ($arg);
T_IOM_IW
	$var = SvIW ($arg);


OUTPUT

T_IOM_TIMER
	$arg = newSVtimer ($var);
T_IOM_IOW
	$arg = newSViow ($var);
T_IOM_PW
	$arg = newSVpw ($var);
T_IOM_IW
	$arg = newSViw ($var);
T_IOM_CHAINED
	$arg = newSVsv (ST(0));