`Clock_deprecated` is used in `Require_explicit_time_source` to create a clock module in which all functions are deprecated.

`module Time : sig ... end`
`val run_at : Time.t ‑> ('a ‑> unit) ‑> 'a ‑> unit`

- Deprecated [since 2016-02] Use [Time_source]

`val run_after : Time.Span.t ‑> ('a ‑> unit) ‑> 'a ‑> unit`

- Deprecated [since 2016-02] Use [Time_source]

`val at : Time.t ‑> unit Deferred.t`

- Deprecated [since 2016-02] Use [Time_source]

`val after : Time.Span.t ‑> unit Deferred.t`

- Deprecated [since 2016-02] Use [Time_source]

`val with_timeout : Time.Span.t ‑> 'a Deferred.t ‑> [ `Timeout | `Result of 'a ] Deferred.t`

- Deprecated [since 2016-02] Use [Time_source]

`module Event : sig ... end`
`val at_varying_intervals : ?⁠stop:unit Deferred.t ‑> (unit ‑> Time.Span.t) ‑> unit Async_kernel__.Async_stream.t`

- Deprecated [since 2016-02] Use [Time_source]

`val at_intervals : ?⁠start:Time.t ‑> ?⁠stop:unit Deferred.t ‑> Time.Span.t ‑> unit Async_kernel__.Async_stream.t`

- Deprecated [since 2016-02] Use [Time_source]

`val every' : ?⁠start:unit Deferred.t ‑> ?⁠stop:unit Deferred.t ‑> ?⁠continue_on_error:bool ‑> ?⁠finished:unit Async_kernel.Ivar.t ‑> Time.Span.t ‑> (unit ‑> unit Deferred.t) ‑> unit`

- Deprecated [since 2016-02] Use [Time_source]

`val every : ?⁠start:unit Deferred.t ‑> ?⁠stop:unit Deferred.t ‑> ?⁠continue_on_error:bool ‑> Time.Span.t ‑> (unit ‑> unit) ‑> unit`

- Deprecated [since 2016-02] Use [Time_source]

`val run_at_intervals' : ?⁠start:Time.t ‑> ?⁠stop:unit Deferred.t ‑> ?⁠continue_on_error:bool ‑> Time.Span.t ‑> (unit ‑> unit Deferred.t) ‑> unit`

- Deprecated [since 2016-02] Use [Time_source]

`val run_at_intervals : ?⁠start:Time.t ‑> ?⁠stop:unit Deferred.t ‑> ?⁠continue_on_error:bool ‑> Time.Span.t ‑> (unit ‑> unit) ‑> unit`

- Deprecated [since 2016-02] Use [Time_source]