yaws_ticker.erl

-module(yaws_ticker).
-author('klacke@bluetail.com').

-export([ticker/3]).

%% Moved here from module yaws to ease purging of yaws.
%% cschultz

ticker(Time, To, Msg) ->
    receive
        {'EXIT', _} ->
            exit(normal)
    after Time ->
            To ! Msg
    end,
    ?MODULE:ticker(Time, To, Msg).