Cyclone3 Skin

Benchmarking

From Cyclone3 Wiki

my $count=1000;
my $t=track TOM::Debug("benchmark",'timer'=>1);
for (1..$count)
{
  # some code
}
$t->close();
main::_log("duration: ".$t->{'time'}{'req'}{'duration'}."s");
main::_log("1 execution: ".($t->{'time'}{'req'}{'duration'}/$count)."s");