Revision c95194b8
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| am.pl | ||
|---|---|---|
|
|
||
|
use strict;
|
||
|
|
||
|
use Time::HiRes qw(gettimeofday tv_interval);
|
||
|
|
||
|
my $time;
|
||
|
|
||
|
BEGIN {
|
||
|
unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
|
||
|
push @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
|
||
|
|
||
|
$time = [gettimeofday];
|
||
|
}
|
||
|
|
||
|
# setup defaults, DO NOT CHANGE
|
||
| ... | ... | |
|
exit;
|
||
|
}
|
||
|
|
||
|
END {
|
||
|
print "<!-- time elapsed: ", tv_interval($time), "s -->";
|
||
|
}
|
||
|
# end
|
||
|
|
||
Auch abrufbar als: Unified diff
Time::HiRes um Zeit Stats im Footer anzuzeigen.