Revision cf154916
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| am.pl | ||
|---|---|---|
| 32 | 32 |
|
| 33 | 33 |
use strict; |
| 34 | 34 |
|
| 35 |
use Time::HiRes qw(gettimeofday tv_interval); |
|
| 36 |
|
|
| 37 |
my $time; |
|
| 38 |
|
|
| 35 | 39 |
BEGIN {
|
| 36 | 40 |
unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML). |
| 37 | 41 |
push @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version. |
| 42 |
|
|
| 43 |
$time = [gettimeofday]; |
|
| 38 | 44 |
} |
| 39 | 45 |
|
| 40 | 46 |
# setup defaults, DO NOT CHANGE |
| ... | ... | |
| 172 | 178 |
exit; |
| 173 | 179 |
} |
| 174 | 180 |
|
| 181 |
END {
|
|
| 182 |
print "<!-- time elapsed: ", tv_interval($time), "s -->"; |
|
| 183 |
} |
|
| 175 | 184 |
# end |
| 176 | 185 |
|
Auch abrufbar als: Unified diff
Time::HiRes um Zeit Stats im Footer anzuzeigen.