object method virtual apply : data:'param_type -> 'result_type method private retrieve_data : 'param_type -> unit Lwt.t end