From d491b5384f572d5a4bedb12aac430dc770ea475f Mon Sep 17 00:00:00 2001
From: Sitaram Chamarty <sitaram@atc.tcs.com>
Date: Fri, 9 Nov 2012 17:54:04 +0530
Subject: [PATCH] (minor) add quick and dirty timer code to Common.pm

---
 src/lib/Gitolite/Common.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/src/lib/Gitolite/Common.pm b/src/lib/Gitolite/Common.pm
index b5c4b47..c93e6ef 100644
--- a/src/lib/Gitolite/Common.pm
+++ b/src/lib/Gitolite/Common.pm
@@ -14,6 +14,8 @@ package Gitolite::Common;
           gl_log
 
           dd
+          t_start
+          t_lap
 );
 #>>>
 use Exporter 'import';
@@ -70,6 +72,21 @@ sub dd {
     dbg(@_);
 }
 
+{
+    use Time::HiRes;
+    my %start_times;
+
+    sub t_start {
+        my $name = shift || 'default';
+        $start_times{$name} = [ Time::HiRes::gettimeofday() ];
+    }
+
+    sub t_lap {
+        my $name = shift || 'default';
+        return Time::HiRes::tv_interval( $start_times{$name} );
+    }
+}
+
 sub _warn {
     gl_log( 'warn', @_ );
     if ( $ENV{D} and $ENV{D} >= 3 ) {