Text :: Ubertext :: Versand

Text :: Ubertext :: Dispatch ist ein Perl-Modul, das geladene Codemodule verfolgt, die die Ubertext-Vorlagensprache erweitern.
Jetzt downloaden

Text :: Ubertext :: Versand Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Chris Josephes
  • Website des Verlags:
  • http://search.cpan.org/~chrisj/ubertext-0.95/Dispatch/Dispatch.pm

Text :: Ubertext :: Versand Stichworte


Text :: Ubertext :: Versand Beschreibung

Text :: Ubertext :: Dispatch ist ein Perl-Modul, das geladene Codemodule verfolgt, die die Ubertext-Vorlagensprache erweitern. Text :: Ubertext :: Dispatch ist ein Perl-Modul, das geladene Codemodule verfolgt, die die Ubertext-Vorlagensprache erweitern. Ein Versandobjekt wird automatisch für den neuen Text erstellt: $ Uber-> Erweitern ($ MyObject); $ Uber-> Erweitern (MyClass); Das Ubertext-Modul übergibt den Objekt- oder Klassennamen in den Text: uberteText :: Dispatch-Objekt. Das Dispatch-Objekt ruft dann die Ubertext-Methode des eingelassenen Moduls auf. Die Ubertext-Methode muss 3 Variablen zurückgeben. Der erste ist das Objekt, das der Versandtabelle verwenden muss, wenn er auf Ihre benutzerdefinierten Namensnamen stößt. Die zweite Variable ist der bevorzugte Namespace, das das Objekt verwendet, und der dritte ist ein anonymer Hash, der den Dispatch-Tisch enthält, der den Ubertext-Tags- und Perl-Code.Examplecustom-Modul-Paket-Paket-Automobil-Modul enthält; $ Dispatch = {"make" => Make, "Modell" => Modell, "Farbe" => Farbe, "Kilometerzähler" => Kilometerstand,}; Sub Ubertext {My ($ self) = Schicht; Zurück ($ self, "my.automobile", $ Dispatch);} Sub Make {My ($ self) = Shift; Rückkehr ($ self -> {color});} Subkilometer {mein ($ self, $ node) = @ _; mein ($ value); if ($ node-> commandvalue () EQ "Trip") {$ value = $ self -> {odometer} -> {trip};} else {$ value = $ self -> {altometer} - > {Grund};} if ($ node-> getOptValue ( "Einheiten") eq "metric") {# convert Meilen $ Wert Kilometer = $ value * 1,61;} $ Wert zurück;} UberText FileThe Hersteller meines Autos ist Es wird als beschrieben .my letzte Reise war Kilometer. Anforderungen: · Perl.


Text :: Ubertext :: Versand Zugehörige Software