From: Mischa POSLAWSKY Date: Wed, 29 Mar 2017 11:00:37 +0000 (+0200) Subject: common: render time in footer on dev X-Git-Tag: v1.10~286 X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/c0b45d8bc967cae8e54c03702e16f52222884867 common: render time in footer on dev Help spot serious inefficiencies during development. --- diff --git a/common.inc.plp b/common.inc.plp index cfd961e..db5177b 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -14,6 +14,11 @@ $PLP::ERROR = sub { print '

Fatal error: '.$html."

\n\n"; }; +BEGIN { + require Time::HiRes; + our $Time = [Time::HiRes::gettimeofday]; +} + our $style; our $showkeys = !exists $get{keys} ? undef : ($get{keys} ne '0' && ($get{keys} || 'always')); @@ -117,6 +122,7 @@ EOT print qq{\n\n\n}; # dev indicator + my $Dev = $ENV{HTTP_HOST} =~ /\bdev\./; printf '

beta

', join('; ', 'position: fixed', 'right: 1em', @@ -125,7 +131,7 @@ EOT 'border-width: 1ex 0', 'z-index: 1', 'background: inherit', - ) if $ENV{HTTP_HOST} =~ /\bdev\./; + ) if $Dev; # prepare trailing output PLP_END { @@ -138,10 +144,11 @@ EOT created by • AGPLv3 -

- - EOT + say sprintf '• %.3fs', Time::HiRes::tv_interval($Time) if $Dev; + say '

'; + say ''; + say ''; }; }