package Modul::Errorcode;

use strict;
use warnings;

use Tie::File;
use Fcntl qw/O_RDONLY/;

use Exporter qw/import/;
our @EXPORT = qw/errormap/;


sub errormap ($) {
	my ($parameter) = @_;

	tie
		my @errormaplist, 'Tie::File' => 'errormap.txt',
		mode => O_RDONLY or
		die "Konnte Fehlerbeschreibungen nicht laden: $!";

	return $errormaplist[$parameter] || 'Unbekannter Fehler';
}

1;