proplists_get_value

proplists_get_value(Key,[H|_] = List) when erlang:is_tuple(H) ->
  case lists:keyfind(Key,1,List) of
    {K,V} when K =:= Key ->
      V;
    _->
      undefined
  end;
  
proplists_get_value(_,[])->
  undefined;

proplists_get_value(Key,[H|Tail]) when erlang:is_atom(H) ->
  case Key =:= H of
    true->
      true;
    _->
      proplists_get_value(Key,Tail)
  end.