Revision 7de14911
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
|
|
||
|
sub enable_sub_tracing {
|
||
|
my ($self) = @_;
|
||
|
$self->{level} | TRACE;
|
||
|
$global_level |= TRACE;
|
||
|
}
|
||
|
|
||
|
sub disable_sub_tracing {
|
||
|
my ($self) = @_;
|
||
|
$self->{level} & ~ TRACE;
|
||
|
$global_level &= ~ TRACE;
|
||
|
}
|
||
|
|
||
|
sub is_tracing_enabled {
|
||
|
my ($self) = @_;
|
||
|
return $self->{level} & TRACE;
|
||
|
return $global_level & TRACE;
|
||
|
}
|
||
|
|
||
|
sub _write {
|
||
Auch abrufbar als: Unified diff
Bugs: tracing Funktionen liefen auf instance->{level} und nicht auf $global_level