anchor.diff:    list_to_atom(string:join(
       [atom_to_list(DocName), atom_to_list(StatementName), "stmt"], "_"
     )).
  +
  +log(Msg, Args) ->
  +  case application:get_env(log_queries) of
  +    true -> lager:debug(Msg, Args);
  +    _    -> ok
  +  end.
  
positive.code: execute(PreQuery, #state{pool=Pool}) when is_list(PreQuery)->
    Query = iolist_to_binary(PreQuery),
    {Time, Value} = timer:tc( emysql, execute, [Pool, Query] ),
    lager:debug("Executed Query: ~s (~pms)", [Query, Time]),
    Value.
  
  prepare(DocName, PreName, Fun) when is_atom(PreName), is_function(Fun) ->
  
negative.code: %% @doc Call prepare/3 first, to get a well formed statement name.
  execute(Name, Args, #state{pool=Pool}) when is_atom(Name), is_list(Args) ->
    {Time, Value} = timer:tc( emysql, execute, [Pool, Name, Args] ),
    log("Executed Query: ~s -> ~p (~pms)", [Name, Args, Time]),
    Value.
  
  execute(Name, State) when is_atom(Name) ->
  