Texto :: UberText :: Despacho

Texto :: UberText :: Dispatch es un módulo PERL que realiza un seguimiento de los módulos de código cargados que extienden el idioma de la plantilla UBERTEXT.
Descargar ahora

Texto :: UberText :: Despacho Clasificación y resumen

Anuncio publicitario

  • Rating:
  • Licencia:
  • Perl Artistic License
  • Precio:
  • FREE
  • Nombre del editor:
  • Chris Josephes
  • Sitio web del editor:
  • http://search.cpan.org/~chrisj/ubertext-0.95/Dispatch/Dispatch.pm

Texto :: UberText :: Despacho Etiquetas


Texto :: UberText :: Despacho Descripción

Texto :: UberText :: Dispatch es un módulo PERL que realiza un seguimiento de los módulos de código cargados que extienden el idioma de la plantilla UBERTEXT. Texto :: UberText :: Dispatch es un módulo PERL que realiza un seguimiento de los módulos de código cargados que extienden el idioma de la plantilla UBERTEXT. Un objeto de despacho se crea automáticamente para el nuevo texto :: UberText objetos.exting UberTextif Usted escribe un módulo que se integra con una plantilla UBERTEXT, el objeto UberText debe ser consciente de ello. $ Uber = Texto :: UberText-> Nuevo (); $ uber-> extender ($ myObject); $ uber-> extender (MyClass); El módulo UberText pasa el objeto o el nombre de la clase al texto :: UberText :: Dispatch Object. El objeto de despacho luego llama al método UBERTEXT del módulo que se pasó. El método UberText tendrá que devolver 3 variables. El primero es el objeto que la tabla de envío deberá usar cuando se encuentra con su nombres personalizados. La segunda variable es el espacio de nombres preferido que utilizará el objeto, y el tercero es un hash anónimo que contiene la tabla de despacho que coincide con las etiquetas UBERTEXT y PERCE CODE.EXAMPLECUSTOM PAQUETE PAQUETE AUTOMOBILE; $ Despacho = {"Make" => Head, "Modelo" => Modelo, "Color" => Color, "odómetro '=> kilometraje,}; sub UberText {My ($ Self) = Shift; Devolución ($, "My.Automobile", $ Despacho);} Sub Make {My ($ yo) = Cambio; regreso ($ auto -> {color});} Sub Mileage {My ($ Self, $ Nodo) = @ _; mi ($ valor); Si ($ Node-> CommandValue () EQ "ViD") {$ Valor = $ Self -> {odómetro} -> {trip};} else {$ valor = $ auto -> {odómetro} - > {básico};}} if ($ nodo-> getoptvalue ("unidades") EQ "METRIC") {# Convierta millas a kilómetros $ valor = $ valor * 1.61;} devolución $ valor;} UberText Fileethe Fabricante de mi auto es Se describe como un . My Último viaje fue Kilómetros. Requisitos: · Perl


Texto :: UberText :: Despacho Software relacionado

Sobre nosotros