Testo :: Ubertext :: Spedizione Testo :: Ubertext :: Dispatch è un modulo Perl che tiene traccia dei moduli di codice caricati che estendono il linguaggio del modello di UberText.
Scarica ora

Testo :: Ubertext :: Spedizione Classifica e riepilogo

Testo :: Ubertext :: Spedizione Tag

modulo Perl modello Spedizione UberText template UberText UberText spedizione

Testo :: Ubertext :: Spedizione Descrizione

Testo :: Ubertext :: Dispatch è un modulo Perl che tiene traccia dei moduli di codice caricati che estendono il linguaggio del modello UberText. Testo :: Ubertext :: Dispatch è un modulo Perl che tiene traccia dei moduli di codice caricati che estendono il linguaggio del modello UberText. Un oggetto Dispatch viene creato automaticamente per il nuovo testo :: Oggetti Ubertext.extending UbertextSif scrivi un modulo che si integra con un modello UberText, l'oggetto Ubertext deve essere consapevole di esso. $ Uber = Testo :: ubertext-> nuovo (); $ Uber-> Estendi ($ myobject); $ uber-> extend (myclass); il modulo Ubertext passa l'oggetto o il nome della classe sul testo :: Ubertext :: oggetto di spedizione. L'oggetto di spedizione chiama quindi il metodo Ubertext del modulo è stato passato. Il metodo Ubertext dovrà restituire 3 variabili. Il primo è l'oggetto che la tabella di spedizione dovrà essere utilizzata quando incontrerà i tuoi nomi personalizzati. La seconda variabile è lo spazio dei nomi preferito che l'oggetto utilizzerà, e il terzo è un hash anonimo contenente la tabella di dispacciatura corrispondente a ubertext tag e perl codice perl. $ Dispatch = {"TAK" => Crea, "Modello" => Modello, "Colore" => Colore, "contachilometri" => chilometraggio,}; sub ubertext {my ($ sé) = spostamento; ritorno ($ sé, "My.automobile", $ Spedizione);} Sub Make {My ($ Self) = Shift; Return ($ Self -> {Color});} Sub Mileage {My ($ Self, $ nodo) = @ _; My ($ valore); IF ($ Node-> CommandValue () EQ "Trip") {$ Value = $ Self -> {contachilometri} -> {viaggio};} else {$ Value = $ Self -> {contachilometri} - > {Basic};} if ($ node-> getoptvaluelue ("unità") EQ "Metric") {# Converti miglia in chilometri $ Value = $ Value * 1.61;} return $ Value;} Ubertext Filethe produttore della mia auto è È descritto come un . Il mio ultimo viaggio è stato chilometri. Requisiti: · Perl.

Testo :: Ubertext :: Spedizione Software correlato