Packages

katana

0.2.21
1.0.0 0.4.0 0.3.1 0.3.0 0.2.22 0.2.21 0.2.20 0.2.19 0.2.18 0.2.17

Erlang grab bag of useful functions. It should have been called swiss army knife but katanas are deadlier

HexDocs

Current section

Files

Jump to
Readme
10 Versions
2 Dependencies
Dependants
Files
Activity
katana src ktn_maps.erl
Raw

src/ktn_maps.erl 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%% ktn_maps: functions useful for handling maps

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

-module(ktn_maps).



-export([

         get/2,

         get/3

        ]).



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%% Public API

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



-spec get(term(), map()) -> term().

get(Keys, Map) ->

    get(Keys, Map, undefined, error).



-spec get(term(), map(), term()) -> term().

get(Keys, Map, Default) ->

    get(Keys, Map, Default, default).



%% @private

-spec get(term(), map(), term(), error | default) -> term().

get([Key], Map, Default, Type) ->

    get(Key, Map, Default, Type);

get([Key | Rest], Map, Default, Type) ->

    case get(Key, Map, Default, Type) of

        NewMap when is_map(NewMap) ->

            get(Rest, NewMap, Default, Type);

        _ ->

            Default

    end;

get(Key, Map, Default, Type) ->

    case {Type, maps:is_key(Key, Map)} of

        {_, true} ->

            maps:get(Key, Map);

        {default, false} ->

            Default;

        {error, false} ->

            error(bad_path)

    end.