Revision 7de14911
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 192 | 192 |
|
| 193 | 193 |
sub enable_sub_tracing {
|
| 194 | 194 |
my ($self) = @_; |
| 195 |
$self->{level} | TRACE;
|
|
| 195 |
$global_level |= TRACE;
|
|
| 196 | 196 |
} |
| 197 | 197 |
|
| 198 | 198 |
sub disable_sub_tracing {
|
| 199 | 199 |
my ($self) = @_; |
| 200 |
$self->{level} & ~ TRACE;
|
|
| 200 |
$global_level &= ~ TRACE;
|
|
| 201 | 201 |
} |
| 202 | 202 |
|
| 203 | 203 |
sub is_tracing_enabled {
|
| 204 | 204 |
my ($self) = @_; |
| 205 |
return $self->{level} & TRACE;
|
|
| 205 |
return $global_level & TRACE;
|
|
| 206 | 206 |
} |
| 207 | 207 |
|
| 208 | 208 |
sub _write {
|
Auch abrufbar als: Unified diff
Bugs: tracing Funktionen liefen auf instance->{level} und nicht auf $global_level