anchor.diff:  extract_parentURI(Path) ->
       lager:debug("Entry"),
       extract_parentURI(Path, "") ++ "/".
  --spec extract_parentURI(list(), list()) -> list().
  -extract_parentURI([], Acc) ->
  -    Acc;
  -extract_parentURI([H|T], Acc) when is_binary(H) ->
  -    Acc2 = Acc ++ "/" ++ binary_to_list(H),
  -    extract_parentURI(T, Acc2);
  -extract_parentURI([H|T], Acc) ->
  -    Acc2 = Acc ++ "/" ++ H,
  -    extract_parentURI(T, Acc2).
   
   %% @doc Get the object name.
   -spec get_object_name(list(), string()) -> string().
  
positive.code:     pooler:return_member(riak_pool, Pid),
      {true, Req2, Data4}.
  
  get_capability_uri(ObjectType) ->
      lager:debug("Entry"),
      case ObjectType of
  
negative.code:     Children = maps:get(<<"children">>, Data, []),
      handle_delete(Pid, Data, State, Children).
  
  %% @doc Delete a child from its parent
  -spec delete_child_from_parent(pid(), object_oid(), string()) -> ok | {error, term()}.
  delete_child_from_parent(Pid, ParentId, Name) ->
  