anchor.diff:  %% -------------------------------------------------------------------------
   
   send(?module_socket(Server, Socket), Data) ->
  -    case socket:getopt(Socket, otp, meta) of
  +    case socket:getopt(Socket, {otp,meta}) of
           {ok,
            #{packet := Packet,
              send_timeout := SendTimeout} = Meta} ->
  
positive.code: %% Socket options
  
  socket_setopt(Socket, {raw, Level, Key, Value}) ->
      socket:setopt(Socket, Level, Key, Value);
  socket_setopt(Socket, {raw, {Level, Key, Value}}) ->
      socket:setopt(Socket, Level, Key, Value);
  socket_setopt(Socket, {Tag, Value}) ->
      case socket_opt() of
          #{Tag := {Level, Key}} ->
              socket:setopt(
                Socket, Level, Key,
                socket_setopt_value(Tag, Value));
          #{} -> {error, einval}
      end.
  
  socket_setopt_value(_Tag, Value) -> Value.
  
  socket_getopt(Socket, {raw, Level, Key, _Placeholder}) ->
      socket:getopt(Socket, Level, Key);
  socket_getopt(Socket, {raw, {Level, Key, _Placeholder}}) ->
      socket:getopt(Socket, Level, Key);
  socket_getopt(Socket, Tag) when is_atom(Tag) ->
      case socket_opt() of
          #{Tag := {Level, Key}} ->
              socket_getopt_value(
                Tag, socket:getopt(Socket, Level, Key));
          #{} -> {error, einval}
      end.
  
  
negative.code: handle_accept(P, D, From, ListenSocket, Timeout) ->
      case socket:accept(ListenSocket, nowait) of
          {ok, Socket} ->
              ok = socket:setopt(Socket, {otp,iow}, true),
              ok = socket:setopt(Socket, {otp,meta}, meta(D)),
              [ok = socket_copy_opt(ListenSocket, Opt, Socket)
               || Opt <- socket_inherit_opts()],
              handle_connected(
  