Changeset 8154 for lang/perl/App-MadEye

Timestamp:

03/19/08 20:07:45 (9 months ago)

Author:

tokuhirom

Message:

added stopwatch

Files:

• lang/perl/App-MadEye/trunk/lib/App/MadEye/Util.pm (modified) (2 diffs)

lang/perl/App-MadEye/trunk/lib/App/MadEye/Util.pm

@@ -10 +10 @@
 use List::Util qw/first/;
 use YAML ();
+use Time::HiRes qw/gettimeofday/;
 
 sub timeout($$&) {    ## no critic.
@@ -18 +19 @@
         local $SIG{ALRM} = sub { die "Time out error: $msg" };
         $last_alarm = alarm $secs;
-        $code->();
+
+        my $start_time = gettimeofday();
+            $code->();
+        App::MadEye->context->log('debug' => "stopwatch: " . (gettimeofday() - $start_time));
     };
     if ($@) {