[< `R | `W | `X ] ->
Unix.file_descr ->
object
  val mutable put_ : < get : 'a > Queue.t option
  val mutable state_ :
    [ `Exception of exn
    | `Final of 'a
    | `Loaded of Cf_poll.t
    | `Unloaded
    | `Working of Cf_poll.t * 'a ]
  method canget : bool
  method get : 'a
  method load : ?q:< get : 'a > Queue.t -> t -> unit
  method private load_ : t -> unit
  method private virtual service_ :
    Cf_poll.t ->
    [ `Exception of exn
    | `Final of 'a
    | `Loaded of Cf_poll.t
    | `Unloaded
    | `Working of Cf_poll.t * 'a ]
  method unload : unit
  method private unload_ : t -> unit
end