diff options
| author | pep <yes@peepee.me> | 2020-07-21 20:48:09 +0000 |
|---|---|---|
| committer | pep <yes@peepee.me> | 2020-07-21 20:48:09 +0000 |
| commit | 789dbb1e734885bd7cf5ad25f0d2f47765a13657 (patch) | |
| tree | 090b79ed96465dbe135f4191468776cbf7a6a954 /search/lib/Time/Stopwatch.pm | |
| parent | 97bee7fe1a48acb4c34e207863af56894c198151 (diff) | |
attempt at merge
Diffstat (limited to 'search/lib/Time/Stopwatch.pm')
| -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; |
