gen_tcp:send with timeout

Is there a "standard" idiom for calling gen_tcp:send with a timeout?

I'd like to say gen_tcp:send(Socket, Data, Timeout) but there is no 
such (documented) function, my server is queueing, and my process is 
blocked forever.