package XXX; # fuer XXX den Namen des package einsetzen

use strict;
use warnings;

my %ERROR = (
	# Fehlerkonstanten
);

my %CONST = (
	# andere Konstanten
);

sub import
{
	my( $class ) = caller( @_ );				# uebergeordneten packagenamen holen

	no strict;						# strict abschalten
	*{$class.'::error'} = sub (*) { $ERROR{$_[0]} };	# error() sub im uebergeordneten package erstellen
	*{$class.'::const'} = sub (*) { $CONST{$_[0]} };	# const() sub im uebergeordneten package erstellen
} # import

22;

__END__