anchor.diff:  
   -record(metric_file, {
             name :: nonempty_string(),
  -          file :: nonempty_string()
  +          file :: nonempty_string(),
  +          handler=undefined :: pid() | undefined
            }).
   
   -record(metric_dir, {
             name :: nonempty_string(),
  -          contents :: []
  +          metrics,
  +          dirs
            }).
   
   %%%===================================================================
  
positive.code:     case file:read_file_info(Path, [raw]) of
          {ok, {file_info, _, directory, _, _, _, _, _, _, _, _, _, _, _}} ->
              case file:list_dir(Path) of
                  {ok, Fs} ->
                      case lists:flatmap(fun(F) -> find_metrics_files(F, Path) end, Fs) of
                          [] -> [];
                          Contents -> [#metric_dir{name=File, contents=Contents}]
                      end;
                  _Otherwise -> []
              end;
          {ok, {file_info, _, regular, read_write, _, _, _, _, _, _, _, _, _, _}} ->
  
negative.code: count_metrics(Metrics) ->
      count_metrics(Metrics, 0).
  
  count_metrics(Dict, Count) ->
      Sum = fun(_K, #metric_dir{dirs=Dirs, metrics=Metrics}, Acc) ->
                    Acc + orddict:size(Metrics) + count_metrics(Dirs)
            end,
      orddict:fold(Sum, Count, Dict).
  
  
  find_metrics_files(File) ->
  