Tekst :: Ubertext :: Dispatch Tekst :: Ubertext :: Dispatch is een PERL-module die bijhoudt van geladen codemodules die de taal van de Ubertext-sjabloon uitbreiden.
Download nu

Tekst :: Ubertext :: Dispatch Rangschikking & Samenvatting

Tekst :: Ubertext :: Dispatch Tags

Perl-module sjabloon Verzenden UberText Ubertext sjabloon UberText Dispatch

Tekst :: Ubertext :: Dispatch Beschrijving

Tekst :: Ubertext :: Dispatch is een PERL-module die bijhoudt van geladen codemodules die de taal van de Ubertext-sjabloon uitbreiden. Tekst :: Ubertext :: Dispatch is een PERL-module die bijhoudt van geladen codemodules die de taal van de Ubertext-sjabloon uitbreiden. Een Dispatch-object wordt automatisch gemaakt voor nieuwe tekst :: Ubertext-objects.xtende Ubertextif U schrijft een module die integreert met een Ubertext-sjabloon, het Ubertext-object moet zich ervan bewust zijn. $ Uber = Tekst :: Ubertext-> Nieuw (); $ UBER-> Uitbreiden ($ myObject); $ UBER-> Uitbreiden (MyCLASS); de Ubertext-module geeft het object of de klasnaam door naar de tekst :: Ubertext :: Dispatch-object. Het Dispatch-object roept vervolgens de Ubertext-methode van de module die het is doorgegeven. De Ubertext-methode zal 3 variabelen moeten retourneren. De eerste is het object dat de verzendtabel moet gebruiken wanneer het uw aangepaste naamapparaat tegenkomt. De tweede variabele is de geprefereerde naamruimte Het object zal gebruiken, en de derde is een anonieme hash met de verzendtabel die overeenkomt met Ubertext-tags en perl-code.examplecustom-module-pakketauto's; $ Dispatch = {"Maak" => Merk, "Model" => Model, "Kleur" => Kleur, "Kilometerteller" => Kilometerstand,}; Sub Ubertext {My ($ Self) = Shift; Return ($ self, "My.Automobile", $ verzending);} sub maken {mijn ($ self) = verschuiving; retour ($ self -> {color});} sub kilometers {mijn ($ zelf, $ knooppunt) = @ _; My ($ VALUE); IF ($ NODE-> CommandValue () EQ "reis") {$ value = $ self -> {odometer} -> {trip};} anders {$ value = $ self -> {kilometer} - > {Basic};} If ($ Node-> GetoptValue ("eenheden") EQ "Metric") {# Convert Miles To Kilometers $ Waarde = $ Waarde * 1.61;} Retourneer $ Waarde;} Ubertext Filethe Fabrikant van mijn auto Het wordt beschreven als een . Mijn laatste reis was kilometers. Vereisten: · Perl

Tekst :: Ubertext :: Dispatch Gerelateerde software