diff options
Diffstat (limited to 'search/lib/Time')
| -rw-r--r-- | search/lib/Time/Stopwatch.pm | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/search/lib/Time/Stopwatch.pm b/search/lib/Time/Stopwatch.pm deleted file mode 100644 index b7cec26..0000000 --- a/search/lib/Time/Stopwatch.pm +++ /dev/null @@ -1,13 +0,0 @@ -################################################3 -package Time::Stopwatch; -my $VERSION = '1.00'; -use strict; -use constant HIRES => eval { local $SIG{__DIE__}; require Time::HiRes }; -sub TIESCALAR { my $pkg = shift; - my $time = (HIRES ? Time::HiRes::time() : time()) - (@_ ? shift() : 0); - bless \$time, $pkg; } -sub FETCH { (HIRES ? Time::HiRes::time() : time()) - ${$_[0]}; } -sub STORE { ${$_[0]} = (HIRES ? Time::HiRes::time() : time()) - $_[1]; } -################################################# -sub print_timer { print sprintf "%3.2f s %s\n", shift, shift; } -1; |