Use log at random

Easy way to sample frequent things - especially when they'r ein ocverag
equeries

src/leveled_log.erl

@@ -9,6 +9,7 @@
 
 -export([log/2,
             log_timer/3,
+            log_randomtimer/4,
             put_timing/4,
             head_timing/4,
             get_timing/3,
@@ -349,6 +350,14 @@ log_timer(LogReference, Subs, StartTime) ->
             ok
     end.
 
+log_randomtimer(LogReference, Subs, StartTime, RandomProb) ->
+    case random:uniform() < RandomProb of
+        true ->
+            log_timer(LogReference, Subs, StartTime);
+        false ->
+            ok
+    end.
+
 %% Make a log of put timings split out by actor - one log for every
 %% PUT_LOGPOINT puts