Revision 3ac44613
Von Sven Schöling vor etwa 14 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 200 | 200 |
$self->{level} & ~ TRACE;
|
| 201 | 201 |
} |
| 202 | 202 |
|
| 203 |
sub is_tracing_enabled {
|
|
| 204 |
my ($self) = @_; |
|
| 205 |
return $self->{level} & TRACE;
|
|
| 206 |
} |
|
| 207 |
|
|
| 203 | 208 |
sub _write {
|
| 204 | 209 |
my ($self, $prefix, $message) = @_; |
| 205 | 210 |
my $date = strftime("%Y-%m-%d %H:%M:%S $$ ${prefix}: ", localtime(time()));
|
Auch abrufbar als: Unified diff
Funktion um abzufragen ob Tracing aktiviert ist.