Move to a separate header file and rename to SAFELY

include/mongoose.hrl

@@ -31,13 +31,6 @@
 
 -define(MONGOOSE_URI, <<"https://www.erlang-solutions.com/products/mongooseim.html">>).
 
--define(APPLY_SAFELY(F),
-        try F catch
-            error:R:S -> {exception, #{class => error, reason => R, stacktrace => S}};
-            throw:R -> {exception, #{class => throw, reason => R}};
-            exit:R:S -> {exception, #{class => exit, reason => R, stacktrace => S}}
-        end).
-
 %% ---------------------------------
 %% Logging mechanism
 -include("mongoose_logger.hrl").

include/safely.hrl

@@ -0,0 +1,11 @@
+-ifndef(SAFELY).
+-define(SAFELY, true).
+
+-define(SAFELY(F),
+        try F catch
+            error:R:S -> {exception, #{class => error, reason => R, stacktrace => S}};
+            throw:R -> {exception, #{class => throw, reason => R}};
+            exit:R:S -> {exception, #{class => exit, reason => R, stacktrace => S}}
+        end).
+
+-endif.

src/gen_hook.erl

@@ -23,6 +23,7 @@
 
 -ignore_xref([start_link/0, add_handlers/1, delete_handlers/1]).
 
+-include("safely.hrl").
 -include("mongoose.hrl").
 
 -type hook_name() :: atom().
@@ -227,7 +228,7 @@ run_hook([Handler | Ls], Acc, Params, Key) ->
     hook_fn_ret() | safely:exception().
 apply_hook_function(#hook_handler{hook_fn = HookFn, extra = Extra},
                     Acc, Params) ->
-    ?APPLY_SAFELY(HookFn(Acc, Params, Extra)).
+    ?SAFELY(HookFn(Acc, Params, Extra)).
 
 error_running_hook(Info, Handler, Acc, Params, Key) ->
     ?LOG_ERROR(Info#{what => hook_failed,

src/safely.erl

@@ -7,7 +7,7 @@
 %% If it is an error, we want the stacktrace, if not, we don't.
 %% For more information, see usage in test/safely_SUITE.erl
 
--include("mongoose.hrl").
+-include("safely.hrl").
 -include_lib("kernel/include/logger.hrl").
 
 -ifdef(TEST).
@@ -40,11 +40,11 @@
 -ifdef(TEST).
 -spec apply(fun((...) -> A), [term()]) -> A | exception().
 apply(Function, Args) when is_function(Function), is_list(Args) ->
-    ?APPLY_SAFELY(erlang:apply(Function, Args)).
+    ?SAFELY(erlang:apply(Function, Args)).
 
 -spec apply(atom(), atom(), [term()]) -> term() | exception().
 apply(Module, Function, Args) when is_atom(Function), is_list(Args) ->
-    ?APPLY_SAFELY(erlang:apply(Module, Function, Args)).
+    ?SAFELY(erlang:apply(Module, Function, Args)).
 -endif.
 
 -spec apply_and_log(fun((...) -> A), [term()], map()) -> A | exception().