| Clase :: comparable Clase :: comparable es una clase base para objetos comparables. |
Descargar ahora |
Clase :: comparable Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Stevan Little
- Sitio web del editor:
- http://search.cpan.org/~stevan/
Clase :: comparable Etiquetas
Clase :: comparable Descripción
Clase :: comparable es una clase base para objetos comparables. Sinopsis # Un ejemplo de subclase de subclase moneda :: USD; usar la base de la base :: comparable '; Sub nuevo {My $ Class = Shift; bess {value => shift}, $ clase; } Sub Value {(Shift) -> {Value}} Sub Compare {My ($ izquierda, $ derecha) = @_; # Si estamos comparando con otro objeto # de moneda #, comparar valores si (ref ($ ($ derecha) $ derecho-> ISA ('Moneda :: USD')) {devolución $ izquierda-> valor $ derecho-> valor; } # De lo contrario, suponga que estamos comparando # en comparación con un valor numérico de algún otro tipo {devuelva $ $ izquierda-> valor $ derecho; }} # un ejemplo de uso de clase :: Objeto comparable My $ Buck_Fifty = Moneda :: USD-> Nuevo (1.50); My $ Dollar_N_HALF = Currenty :: USD-> Nuevo (1.50); ($ buck_fifty == $ dollar_n_half) # Estos son iguales (1.75> $ buck_fifty) # 1.75 es más que un dinero cincuenta mis $ dos_bits = moneda :: usd-> nuevo (0.25); ($ dos_bits <$ Dollar_N_HALF) # 2 bits es menor que un dólar y medio ($ dos_bits == 0.25) # Dos bits es igual a 25 centavos Requisitos: · Perl
Clase :: comparable Software relacionado