From 271e882944f9922eb936cb950cc2d63bb3ef4d39 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 16 Jan 2015 14:38:10 +0100
Subject: [PATCH] =?utf8?q?console:=20clock=20Funktion=20um=20kleionere=20S?=
 =?utf8?q?chnipsel=20timen=20zu=20k=C3=B6nnen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 scripts/console | 21 +++++++++++++++------
 1 file changed, 15 insertions(+), 6 deletions(-)

diff --git a/scripts/console b/scripts/console
index 01a6db982..ba287fd47 100755
--- a/scripts/console
+++ b/scripts/console
@@ -84,6 +84,7 @@ use SL::Locale;
 use SL::LXDebug;
 use Data::Dumper;
 use List::Util qw(max);
+use Time::HiRes;
 
 # this is a cleaned up version of am.pl
 # it lacks redirection, some html setup and most of the authentication process.
@@ -153,13 +154,14 @@ sub help {
 
 Spezielle Kommandos:
 
-  help                - zeigt diese Hilfe an.
-  lxinit 'login'      - lädt das kivitendo-Environment für den User 'login'.
-  reload              - lädt modifizierte Module neu.
-  pp DATA             - zeigt die Datenstruktur mit Data::Dumper an.
-  quit                - beendet die Konsole
+  help              - zeigt diese Hilfe an.
+  lxinit 'login'    - lädt das kivitendo-Environment für den User 'login'.
+  reload            - lädt modifizierte Module neu.
+  pp DATA           - zeigt die Datenstruktur mit Data::Dumper an.
+  clock { CODE }    - zeigt die gebrauchte Zeit für die Ausführung von CODE an
+  quit              - beendet die Konsole
 
-  part                - shortcuts auf die jeweilige SL::DB::{...}::find_by
+  part              - shortcuts auf die jeweilige SL::DB::{...}::find_by
   customer, vendor,
   order, invoice,
   purchase_invoice,
@@ -248,6 +250,13 @@ sub chart {
   SL::DB::Manager::Chart->find_by(@_)
 }
 
+sub clock (&) {
+  my $s = [Time::HiRes::gettimeofday()];
+  $_[0]->();
+  Time::HiRes::tv_interval($s);
+}
+
+
 1;
 
 __END__
-- 
2.20.1