Texto :: Ubertext :: Despacho

Texto :: Ubertext :: Dispatch é um módulo Perl que acompanha os módulos de código carregados que estendem a linguagem de modelo Ubertext.
Baixe Agora

Texto :: Ubertext :: Despacho Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Chris Josephes
  • Site do editor:
  • http://search.cpan.org/~chrisj/ubertext-0.95/Dispatch/Dispatch.pm

Texto :: Ubertext :: Despacho Tag


Texto :: Ubertext :: Despacho Descrição

Texto :: Ubertext :: Dispatch é um módulo Perl que controla os módulos de código carregados que estendem a linguagem de modelo Ubertext. Texto :: Ubertext :: Dispatch é um módulo Perl que controla os módulos de código carregados que estendem a linguagem de modelo Ubertext. Um objeto de despacho é criado automaticamente para novo texto :: Ubertext Objects.Etting UberTextif Você escreve um módulo que se integra a um modelo Ubertext, o objeto Ubertext precisa estar ciente disso. $ Uber = Texto :: Ubertext-> Novo (); $ uber-> estender ($ myobject); $ uber-> estender (myclass); o módulo Ubertext passa o objeto ou nome de classe para o texto :: Ubertext :: Dispatch Object. O objeto de despacho chama o método Ubertext do módulo que foi passado. O método Ubertext precisará retornar 3 variáveis. O primeiro é o objeto que a tabela de despacho precisará usar quando encontra seu nome de nomes personalizados. A segunda variável é o namespace preferido que o objeto será utilizado, e o terceiro é um hash anônimo contendo a tabela de despacho correspondente com tags Ubertext e PERL Code.Examplecustom Module Package Automóvel; $ Dispatch = {"Fazer" => Fazer, "Modelo" => Modelo, "Cor" => Cor, "Odômetro '=> Quilometragem,}; Subbertexto {My ($ Auto) = Shift; Retorno ($, "My.Automóvel", $ Dispatch);} Sub Faça {My ($ Auto) = Shift; Retornar ($ auto -> {color});} Sub milhagem {my ($ self, $ nó) = @ _; meu (valor $); se ($ node-> comandovalue () eq "viagem") {$ Value = $ auto -> {odômetro} -> {trip}; {$ valor = $ auto -> {odômetro} > {BASIC};}}}}}}}} getoptvalue ("unidades") EQ "métrica") {# Converter milhas a quilômetros $ valor = $ Valor * 1.61;} Retornar $ Value;} Ubertext Filethe fabricante do meu carro é É descrito como uma .my Última viagem foi quilômetros. Requisitos: · Perl.


Texto :: Ubertext :: Despacho Software Relacionado

Sobre nós