# file KLEIDER/web/src/localization/Base.pm # Basisklasse für Übersetzer # 2015-11-02 Herbert Schiemann # GPL Version 2 oder neuer package Herbaer::Translate::Base ; use utf8; BEGIN { binmode (STDERR, ":utf8"); } sub new {} # new # ergibt die Übersetzung von $text aus der Sprache $srl # in die Sprache $tgl sub translate { my ($self, $text, $srl, $tgl) = @_ ; } # translate # lernt: # $tt ist die Übersetzung des Textes $text # aus der Sprache $tgl in die Sprachen $tt sub learn { my ($self, $text, $srl, $tgl, $tt) = @_ ; } # learn # räumt auf, # der Übersetzer funktioniert aber weiterhin sub finish {} # finish # Name des zuletzt aktiven Uebersetzers # für Module, die abhängig von den Parametern # die Übersetzung an verschiedene Module weiterleiten. sub translator_name { ""; } # translator_name 1; # end of file KLEIDER/web/src/localization/Base.pm