Revision 52e676cf
Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 304 | 304 |
sub log_time {
|
| 305 | 305 |
my ($self, @slurp) = @_; |
| 306 | 306 |
return 1 unless want_request_timer(); |
| 307 |
$self->_write("time", $self->get_request_time() . (@slurp ? " (@slurp)" : ''));
|
|
| 307 |
|
|
| 308 |
my $now = $self->get_request_time; |
|
| 309 |
my $diff = int((($now - ($self->{previous_log_time} // 0)) * 10_000 + 5) / 10);
|
|
| 310 |
$self->{previous_log_time} = $now;
|
|
| 311 |
|
|
| 312 |
$self->_write("time", "${now}s Δ ${diff}ms" . (@slurp ? " (@slurp)" : ''));
|
|
| 308 | 313 |
} |
| 309 | 314 |
|
| 310 | 315 |
sub get_request_time {
|
Auch abrufbar als: Unified diff
LXDebug::log_time: Differenz zum letzten Aufruf in ms mit ausgeben