anchor.diff:  -export([delete_any/2, get_primary_value/2]).
   -export([default/3, enter_from_list/2, default_from_list/2]).
   -export([to_list/1, make/1]).
  +-export([from_binary/1]).
   -export([test/0]).
   
   %% @type headers().
  
positive.code:                                              "content-type", H4),
      H4 = ?MODULE:delete_any("nonexistent-header", H4),
      H3 = ?MODULE:delete_any("content-type", H4),
      ok.
  
  %% @spec empty() -> headers()
  
negative.code: %% assume a tuple is already mochiweb_headers.
  make(T) when is_tuple(T) ->
      T.
  
  %% @spec from_binary(RawHttpHeader()) -> headers() 
  %% @type RawHttpHeader() -> string() | binary() | [ string() | binary() ]
  %%
  %% @doc Transforms a raw HTTP header into a mochiweb headers structure.
  %%
  %%      The given raw HTTP header can be one of the following:
  %%
  %%      1) A string or a binary representing a full HTTP header ending with 
  %%         double CRLF.
  %%         Examples:
  %%         "Content-Length: 47\r\nContent-Type: text/plain\r\n\r\n"
  %%         <<"Content-Length: 47\r\nContent-Type: text/plain\r\n\r\n">>
  %%
  %%      2) A list of binaries or strings where each element represents a raw 
  %%         HTTP header line ending with a single CRLF.
  %%         Examples:
  %%         [ <<"Content-Length: 47\r\n">>, <<"Content-Type: text/plain\r\n">> ]
  %%         [ "Content-Length: 47\r\n", "Content-Type: text/plain\r\n" ]
  %%         [ "Content-Length: 47\r\n", <<"Content-Type: text/plain\r\n">> ]
  %%
  from_binary(RawHttpHeader) when is_binary(RawHttpHeader) ->
      from_binary(RawHttpHeader, []);
  
  from_binary(RawHttpHeaderList) ->
      from_binary(list_to_binary([RawHttpHeaderList, "\r\n"])).
  
  from_binary(RawHttpHeader, Acc) ->
      case erlang:decode_packet(httph, RawHttpHeader, []) of
          { ok, {http_header, _, H, _, V}, Rest } ->
              from_binary(Rest, [{H, V} | Acc]);
          _ ->
              make(Acc)
      end.
  
  %% @spec from_list([{key(), value()}]) -> headers()
  %% @doc Construct a headers() from the given list.
  