example

README.md

@@ -10,6 +10,24 @@ Set a key/value pair with flags and timeout of 10 seconds
 ok.
 
 
+erl 25
 
+$ erl
+1> c(memcached).
+{ok,memcached}
+2> c(test).
+{ok,test}
+3> test:main().
+get test1 = {ok,[]}
+set test1 = ok
 
+%% get test1 = {ok,[{"test1",[118,97,108,117,101,49,32,61,32,128293,129408]}]}
+get test1 = value1 = 🔥🦀
+
+delete test1 = ok
+get test1 = {ok,[]}
+ok
+4> q().
+ok
 ```
+

test.erl

@@ -0,0 +1,34 @@
+-module(test).
+
+
+-export([
+  main/0
+]).
+
+
+unwrap({ok, [{_, V}]}) -> V; %% ok
+unwrap(_) -> err. %% not ok
+
+
+main() ->
+  %Conn = {host, "localhost", port, 11211},
+  Conn = {host, "127.0.0.1", port, 11211},
+  
+  R0 = memcached:get(Conn, "test1"), %% {ok,[]}
+  io:format("get test1 = ~p~n", [R0]),
+  
+  V1 = "value1 = 🔥🦀",
+  R1 = memcached:set(Conn, "test1", V1), %% ok = stored successfully
+  io:format("set test1 = ~p~n", [R1]),
+  
+  R2 = memcached:get(Conn, "test1"), %% {ok,[{"test1",[118,97,108,117,101,49,32,61,32,128293,129408]}]}
+  io:format("get test1 = ~ts~n", [ unwrap(R2) ]), %% value1 = 🔥🦀
+  
+  R3 = memcached:delete(Conn, "test1"), %% ok
+  io:format("delete test1 = ~p~n", [R3]),
+  
+  R4 = memcached:get(Conn, "test1"), %% {ok,[]}
+  io:format("get test1 = ~p~n", [R4]),
+  
+  ok.
+