Revision 3e8a8c57
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 296 | 296 |
@_ == 2 ? $_[0]->{file} = $_[1] : $_[0]->{file};
|
| 297 | 297 |
} |
| 298 | 298 |
|
| 299 |
sub _by_name {
|
|
| 300 |
my ($self, $level) = @_; |
|
| 301 |
my $meth = $self->can(uc $level); |
|
| 302 |
die 'unknown level' unless $meth; |
|
| 303 |
$meth->(); |
|
| 304 |
} |
|
| 305 |
|
|
| 306 |
sub level_by_name {
|
|
| 307 |
my ($self, $level, $val) = @_; |
|
| 308 |
if (@_ == 3) {
|
|
| 309 |
$global_level |= $self->_by_name($level) if $val; |
|
| 310 |
$global_level &= ~$self->_by_name($level) if !$val; |
|
| 311 |
} |
|
| 312 |
return $global_level & $self->_by_name($level); |
|
| 313 |
} |
|
| 314 |
|
|
| 299 | 315 |
1; |
Auch abrufbar als: Unified diff
Debug Menü im HTML Menü. FCGI Entwicklung leicht gemacht.