example

-module(client).

start_link(Locker) ->

{ok,spawn_link(loop,[Locker])}.

loop(Locker) ->

gen_server:call(Locker,request),

critical(),

gen_server:call(Locker,release),

loop(Locker).