Current section

Files

Jump to
hackney src hackney_client hackney_folsom_metrics.erl
Raw

src/hackney_client/hackney_folsom_metrics.erl

%%% -*- erlang -*-
%%%
%%% This file is part of hackney released under the Apache 2 license.
%%% See the NOTICE for more information.
%%%
-module(hackney_folsom_metrics).
-export([
new/2,
delete/1,
increment_counter/1,
increment_counter/2,
decrement_counter/1,
decrement_counter/2,
update_histogram/2,
update_gauge/2,
update_meter/2]).
-spec new(atom(), any()) -> ok | {error, term()}.
new(counter, Name) ->
folsom_metrics:new_counter(Name);
new(histogram, Name) ->
folsom_metrics:new_histogram(Name);
new(gauge, Name) ->
folsom_metrics:new_gauge(Name);
new(meter, Name) ->
folsom_metrics:new_meter(Name);
new(_, _) ->
{error, unsupported_type}.
delete(Name) ->
folsom_metrics:delete_metric(Name).
-spec increment_counter(any()) -> ok | {error, term()}.
increment_counter(Name) ->
notify(Name, {inc, 1}, counter).
-spec increment_counter(any(), pos_integer()) -> ok | {error, term()}.
increment_counter(Name, Value) ->
notify(Name, {inc, Value}, counter).
-spec decrement_counter(any()) -> ok | {error, term()}.
decrement_counter(Name) ->
notify(Name, {dec, 1}, counter).
-spec decrement_counter(any(), pos_integer()) -> ok | {error, term()}.
decrement_counter(Name, Value) ->
notify(Name, {dec, Value}, counter).
-spec update_histogram(any(), number()) -> ok | {error, term()};
(any(), function()) -> ok | {error, term()}.
update_histogram(Name, Fun) when is_function(Fun, 0) ->
Begin = os:timestamp(),
Result = Fun(),
Duration = timer:now_diff(os:timestamp(), Begin) div 1000,
case notify(Name, Duration, histogram) of
ok -> Result;
Error -> throw(Error)
end;
update_histogram(Name, Value) when is_number(Value) ->
notify(Name, Value, histogram).
-spec update_gauge(any(), number()) -> ok | {error, term()}.
update_gauge(Name, Value) ->
notify(Name, Value, gauge).
-spec update_meter(any(), number()) -> ok | {error, term()}.
update_meter(Name, Value) ->
notify(Name, Value, meter).
-spec notify(any(), any(), atom()) -> ok | {error, term()}.
notify(Name, Op, Type) ->
case folsom_metrics:notify(Name, Op) of
ok -> ok;
{error, Name, nonexistent_metric} ->
%% the metric doesn't exists, create it.
new(Type, Name),
%% then notify
folsom_metrics:notify(Name, Op);
Error ->
io:format("error is ~p~n", [Error]),
Error
end.