Die Abstraktion als Modul

Logger.pm

package Logger; use strict; use warnings; use Carp; require Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = qw(LOG_INFO LOG_WARN LOG_ERROR LOG_ALERT); use constant { LOG_INFO => 0, LOG_WARN => 1, LOG_ERROR => 2, LOG_ALERT => 3, };

Wie zuvor wird mit @ISA die Erweiterungsbeziehung zwischen den Modulen festgelegt und mit EXPORT_OK eine nicht-flutende Export-Liste angegeben.

Log-Meldungen sind üblicherweise mit Gewichtungen verbunden. Hier wird zwischen informellen, warnenden, auf Fehler hinweisenden und dramatischen Meldungen unterschieden.

Mit use constant (einem weiteren Pragma-Modul von Perl) sind Konstanten-Deklarationen möglich. Die Konstantennamen werden wie Funktionen verwendet. Per Konvention bestehen die Namen aus Konstanten nur aus Großbuchstaben.

	Wie zuvor wird mit `@ISA` die Erweiterungsbeziehung zwischen den Modulen festgelegt und mit `EXPORT_OK` eine nicht-flutende Export-Liste angegeben.
	Log-Meldungen sind üblicherweise mit Gewichtungen verbunden. Hier wird zwischen informellen, warnenden, auf Fehler hinweisenden und dramatischen Meldungen unterschieden.
	Mit `use constant` (einem weiteren Pragma-Modul von Perl) sind Konstanten-Deklarationen möglich. Die Konstantennamen werden wie Funktionen verwendet. Per Konvention bestehen die Namen aus Konstanten nur aus Großbuchstaben.