osmo_util: introduce convenience wrappers around application:get_env()

1 files changed, 18 insertions, 0 deletions

diff --git a/src/osmo_util.erl b/src/osmo_util.erl
index d4fb5b0..f2fb1cc 100644
--- a/src/osmo_util.erl
+++ b/src/osmo_util.erl
@@ -40,6 +40,7 @@
 -export([make_prim/4, make_prim/3]).
 -export([pointcode2int/1, pointcode2int/2, pointcode_fmt/2]).
 -export([asn_val/1]).
+-export([get_env/2, get_env/3]).
 
 -include("osmo_util.hrl").
 
@@ -202,3 +203,20 @@ asn_val([]) ->
 	asn1_NOVALUE;
 asn_val(Foo) ->
 	Foo.
+
+% wrapper around application:get_env() thwowing exception on undef
+get_env(App, Var) when is_atom(App), is_atom(Var) ->
+	case application:get_env(App, Var) of
+		undefined ->
+			throw(undefined);
+		{ok, Value} ->
+			Value
+	end.
+
+get_env(App, Var, Default) ->
+	case application:get_env(App, Var) of
+		undefined ->
+			Default;
+		{ok, Value} ->
+			Value
+	end.