|
sub get_default_level { my ($self) = @_; return $self->{default_level}; } sub log { my ($self, $msg, $level) = @_; $level = $self->get_default_level unless defined $level; return $self->do_log($msg, $level); } |
sub do_log { my ($self, $msg, $level) = @_; croak "Unknown log level: $level" unless defined $priority{$level}; $self->{file}->print($priority{$level} . ": " . $msg . "\n"); } |
Die Methode log repräsentiert die Schnittstelle
zu den Klienten, die Methode do_log die Schnittstelle
zu den Implementierungen. Beide versuchen, das Leben
für das jeweilige Gegenüber zu vereinfachen.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |