anchor.diff:      aggregate_coverage2(Modules, 0, 0, []).
   
   aggregate_coverage2([H | T], CoveredLines, TotalLines, ModuleStats) ->
  -    {ok, {_Module, {Cov, NotCov}}} = cover:analyse(H, coverage, module),
  +    {ok, Cov, NotCov} = get_module_coverage(H),
       ModLines = Cov + NotCov,
       ModPercent = (Cov / ModLines * 100),
       NewModuleStats = [{H, ModPercent} | ModuleStats],
  
positive.code: 		       );
  aggregate_coverage2([], CoveredLines, TotalLines, ModuleStats) ->
      {ok, CoveredLines, TotalLines, ModuleStats}.
  
negative.code: 
      TotalPercent = (CoveredLines / TotalLines * 100),
  
      io:format("~nTests covered ~p out of ~p lines of code in ~p modules (~.1f%)~n~n",
  	      [CoveredLines, TotalLines, length(?TEST_MODULES), TotalPercent]),
  
      if
  