Eingebettete Methoden

Logger.pm

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); }

Logger::Logfile.pm

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.