diff options
| author | Stevan Little <stevan.little@iinteractive.com> | 2013-09-01 13:27:33 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-09-03 16:50:15 -0400 |
| commit | 30d7375bba8b179dedf1c2ca322d758e5330752d (patch) | |
| tree | 62427ef686e6f6576a5035887813050faad2fa31 /lib/Reply/Plugin/Timer.pm | |
| parent | 5da5169c7fa1a64b9ddc2eae14d9435cc54f107a (diff) | |
| download | reply-30d7375bba8b179dedf1c2ca322d758e5330752d.tar.gz reply-30d7375bba8b179dedf1c2ca322d758e5330752d.zip | |
twigils
Diffstat (limited to 'lib/Reply/Plugin/Timer.pm')
| -rw-r--r-- | lib/Reply/Plugin/Timer.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Reply/Plugin/Timer.pm b/lib/Reply/Plugin/Timer.pm index bef91d7..07c620b 100644 --- a/lib/Reply/Plugin/Timer.pm +++ b/lib/Reply/Plugin/Timer.pm @@ -21,14 +21,14 @@ the default C<mintime> is C<< 0.01 >> seconds. =cut class Reply::Plugin::Timer extends Reply::Plugin { - has $mintime = 0.01; + has $!mintime = 0.01; method execute ($next, @args) { my $t0 = [gettimeofday]; my $ret = $next->(@args); my $elapsed = tv_interval($t0); - if ($elapsed > $mintime) { + if ($elapsed > $!mintime) { if ($elapsed >= 1) { printf "Execution Time: %0.3fs\n", $elapsed } else { |