Revision 5313b0e8
Von Sven Schöling vor mehr als 7 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 348 | 348 |
return 1 unless want_request_timer(); |
| 349 | 349 |
|
| 350 | 350 |
my $now = $self->get_request_time; |
| 351 |
my $diff = int((($now - ($self->{previous_log_time} // 0)) * 10_000 + 5) / 10);
|
|
| 351 |
|
|
| 352 |
return 1 unless $now; |
|
| 353 |
|
|
| 354 |
my $diff = $self->{previous_log_time} ? int((($now - ($self->{previous_log_time} // 0)) * 10_000 + 5) / 10) : $now * 10_0000 + 5;
|
|
| 352 | 355 |
$self->{previous_log_time} = $now;
|
| 353 | 356 |
|
| 354 | 357 |
$self->_write("time", "${now}s Δ ${diff}ms" . (@slurp ? " (@slurp)" : ''));
|
Auch abrufbar als: Unified diff
Warnings: LXDebug::log_time