• Personal tools
  • Log in / create account
• Navigation
  • Main Page
  • Community portal
  • Current events
  • Recent changes
  • Random page
  • Help
  • Donations
• Toolbox
  • What links here
  • Related changes
  • Upload file
  • Special pages

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");