From 789dbb1e734885bd7cf5ad25f0d2f47765a13657 Mon Sep 17 00:00:00 2001 From: pep Date: Tue, 21 Jul 2020 20:48:09 +0000 Subject: attempt at merge --- search/lib/Time/Stopwatch.pm | 13 ------------- 1 file changed, 13 deletions(-) delete mode 100644 search/lib/Time/Stopwatch.pm (limited to 'search/lib/Time') 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; -- cgit v1.2.3-70-g09d2