Hi,

Einführungen zur OO:
http://perldoc.perl.org/perlboot.html
http://perldoc.perl.org/perltoot.html

Dann meine Anmerkungen:

- 'test' sollte als reserviertes Wort betrachtet werden und niemals so eingesetzt werden
- Modulnamen müssen den vollen Pfad wiederspiegeln; lautet der Modulpfad also "Error/Mappings.pm", dann muss das Modul "Error::Mappings" heissen.

- Dein Code-Schnipsel zum Modul enthält bereits Syntaxfehler, so dass es so gar nicht laufen kann.
- Nachtrag: (nachdem ich renees Beitrag sah): Auch von meiner Seite ein ++ für Verwendung von strict und warnings ;o)

Vorschlag:

Modul:
- Methode new():
- - Array mit Meldungen füllen, referenzieren, zum Objekt machen und Referenzen zurückliefern.
- Methode get_msg():
- - Nimmt Fehlernummer entgegen und liefert die entsprechende Meldung aus dem Array oder Leerstring/undef falls Nummer nicht existiert/definiert.

Skript:
- Modul mit use einbinden;
- Objekt erstellen; Schema: my $foo = Bar->new();
- Objekt nutzen: $foo->get_msg( 2 );