- my ($log_level) = $self->{"level"};
-
- if ($global_level && ($global_level > $log_level)) {
- $log_level = $global_level;
- }
-
- if ($log_level >= $level) {
- $self->_write(INFO == $level
- ? "info"
- : DEBUG1 == $level ? "debug1" : "debug2",
- $message);
- }