diff options
author | Oliver Tappe | 2007-07-01 22:28:50 +0200 |
---|---|---|
committer | Oliver Tappe | 2007-07-01 22:28:50 +0200 |
commit | 6974fa8b0419bbd0711f79c8b78e07a9543810dd (patch) | |
tree | 25141f0f4d20ca8fdb1c845edf5b9ce4b24a6e98 /lib/OpenSLX/Translations/de.pm | |
parent | Tried to add Ubuntu 7.04 to the list of cloneable systems. (diff) | |
download | core-6974fa8b0419bbd0711f79c8b78e07a9543810dd.tar.gz core-6974fa8b0419bbd0711f79c8b78e07a9543810dd.tar.xz core-6974fa8b0419bbd0711f79c8b78e07a9543810dd.zip |
* activated 'use warnings' to all modules and adjusted all occurences of
'use of uninitialized values', a couple of which might still show up
* adjusted all code with respect to passing perlcritic level 4 and 5
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1207 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'lib/OpenSLX/Translations/de.pm')
-rw-r--r-- | lib/OpenSLX/Translations/de.pm | 26 |
1 files changed, 11 insertions, 15 deletions
diff --git a/lib/OpenSLX/Translations/de.pm b/lib/OpenSLX/Translations/de.pm index 081e44e4..e98edd03 100644 --- a/lib/OpenSLX/Translations/de.pm +++ b/lib/OpenSLX/Translations/de.pm @@ -14,15 +14,20 @@ package OpenSLX::Translations::de; use strict; -use vars qw(@ISA @EXPORT $VERSION); +use warnings; -use Exporter; -$VERSION = 0.02; -@ISA = qw(Exporter); +our $VERSION = 0.02; -@EXPORT = qw(%translations); +my %translations; -use vars qw(%translations); +################################################################################ +### Implementation +################################################################################ +sub getAllTranslations +{ + my $class = shift; + return \%translations; +} ################################################################################ ### Translations @@ -352,12 +357,3 @@ use vars qw(%translations); ); 1; - - - - - - - - - |