sub new_from_socket
{
	my ($class, $sock, %arg) = @_;
	
	bless $sock, $class;
	
	$sock->autoflush(1);
	${*$sock}{'io_socket_timeout'} = delete $arg{Timeout};
	
	return scalar(%arg) ? $sock->configure(\%arg)
			: $sock;
}