Packages

A memcached client in pure gleam!

Current section

Files

Jump to
glemcached src glemcached@examples@text.erl
Raw

src/glemcached@examples@text.erl

-module(glemcached@examples@text).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
-export([main/0]).
-file("/home/user/Documents/code/learn/gleam/memcached/src/glemcached/examples/text.gleam", 14).
-spec main() -> nil.
main() ->
_assert_subject = begin
_pipe = glemcached:new(<<"localhost"/utf8>>, 11211),
_pipe@1 = glemcached:with_timeout(_pipe, 500),
_pipe@2 = glemcached:with_authentication(
_pipe@1,
<<"user"/utf8>>,
<<"pass"/utf8>>
),
glemcached:connect(_pipe@2)
end,
{ok, Mem} = case _assert_subject of
{ok, _} -> _assert_subject;
_assert_fail ->
erlang:error(#{gleam_error => let_assert,
message => <<"Pattern match failed, no pattern matched the value."/utf8>>,
value => _assert_fail,
module => <<"glemcached/examples/text"/utf8>>,
function => <<"main"/utf8>>,
line => 15})
end,
_assert_subject@1 = glemcached@text:set(
Mem,
<<"foo"/utf8>>,
123,
0,
<<"Hello"/utf8>>
),
{ok, nil} = case _assert_subject@1 of
{ok, nil} -> _assert_subject@1;
_assert_fail@1 ->
erlang:error(#{gleam_error => let_assert,
message => <<"Pattern match failed, no pattern matched the value."/utf8>>,
value => _assert_fail@1,
module => <<"glemcached/examples/text"/utf8>>,
function => <<"main"/utf8>>,
line => 21})
end,
_assert_subject@2 = glemcached@text:append(
Mem,
<<"foo"/utf8>>,
123,
0,
<<", world!"/utf8>>
),
{ok, true} = case _assert_subject@2 of
{ok, true} -> _assert_subject@2;
_assert_fail@2 ->
erlang:error(#{gleam_error => let_assert,
message => <<"Pattern match failed, no pattern matched the value."/utf8>>,
value => _assert_fail@2,
module => <<"glemcached/examples/text"/utf8>>,
function => <<"main"/utf8>>,
line => 22})
end,
_assert_subject@3 = glemcached@text:get(Mem, [<<"foo"/utf8>>]),
{ok, [Value]} = case _assert_subject@3 of
{ok, [_]} -> _assert_subject@3;
_assert_fail@3 ->
erlang:error(#{gleam_error => let_assert,
message => <<"Pattern match failed, no pattern matched the value."/utf8>>,
value => _assert_fail@3,
module => <<"glemcached/examples/text"/utf8>>,
function => <<"main"/utf8>>,
line => 23})
end,
_assert_subject@4 = gleam@bit_array:to_string(erlang:element(4, Value)),
{ok, Value@1} = case _assert_subject@4 of
{ok, _} -> _assert_subject@4;
_assert_fail@4 ->
erlang:error(#{gleam_error => let_assert,
message => <<"Pattern match failed, no pattern matched the value."/utf8>>,
value => _assert_fail@4,
module => <<"glemcached/examples/text"/utf8>>,
function => <<"main"/utf8>>,
line => 24})
end,
_assert_subject@5 = glemcached@text:delete(Mem, <<"foo"/utf8>>),
{ok, true} = case _assert_subject@5 of
{ok, true} -> _assert_subject@5;
_assert_fail@5 ->
erlang:error(#{gleam_error => let_assert,
message => <<"Pattern match failed, no pattern matched the value."/utf8>>,
value => _assert_fail@5,
module => <<"glemcached/examples/text"/utf8>>,
function => <<"main"/utf8>>,
line => 27})
end,
gleam@io:println(Value@1).