xsthreadpool T_POOL INPUT T_POOL if (!SvROK ($arg)) croak (\"AnyEvent::XSThreadPool object expected\"); $var = (xsthreadpool)SvPVX (AvARRAY (SvRV ($arg))[0]);