Classe :: Comparável

Classe :: Comparável é uma classe base para objetos comparáveis.
Baixe Agora

Classe :: Comparável Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Stevan Little
  • Site do editor:
  • http://search.cpan.org/~stevan/

Classe :: Comparável Tag


Classe :: Comparável Descrição

Classe :: Comparável é uma classe base para objetos comparáveis. Sinopse # uma moeda de pacote de subclasse de exemplo :: USD; Use a classe 'Classe :: Comparável'; sub new {my $ classe = turno; abençoe {valor => shift}, $ classe; } Sub Value {(Shift) -> {valor}} sub comparar {my ($ resto, $ à direita) = @_; # Se estivermos comparando com outro objeto de moeda #, compare os valores se (Ref ($ Right) $ Right-> ISA ('Moeda :: USD')) {Retornar $ Left-> valor $; valor; } # }} # Um exemplo de uso de classe :: objeto comparável Minha $ Buck_Fiffory = Moeda :: USD-> NOVO (1,50); Meu $ dolar_n_half = Oculto :: USD-> NOVO (1,50); ($ buck_fifty == $ dolar_n_half) # estes são iguais (1.75> $ Buck_Fifty) # 1.75 é mais do que um dólar cinquenta minhas $ two_bits = moeda :: USD-> NOVO (0,25); ($ two_bits <$ dollar_n_half) # 2 bits é inferior a um dólar e meio ($ dois_bits == 0,25) # Dois bits é igual a 25 centavos requisitos: · Perl.


Classe :: Comparável Software Relacionado

Sobre nós