Klasse :: Vergleichbar Klasse :: Vergleichbar ist eine Basisklasse für vergleichbare Objekte.
Jetzt downloaden

Klasse :: Vergleichbar Ranking & Zusammenfassung

Klasse :: Vergleichbar Stichworte

Perl-Modul Perl Klasse vergleichen Perl-Klasse. Vergleichbare Objekte

Klasse :: Vergleichbar Beschreibung

Klasse :: Vergleichbar ist eine Basisklasse für vergleichbare Objekte. Synopsis # Ein Beispiel Subclass-Paket-Währung :: USD; Verwenden Sie die Basis 'Klasse :: Vergleichbar'; Sub New {My $ Class = Schicht; segne {wert => wechseln}, $ class; } Unterwert {(SHIFT) -> {Wert}} Subvergleich {MY ($ LINKS, $ RECHTS) = @_; # Wenn wir mit einem anderen # Währungsobjekt vergleichen, vergleichen Sie die Werte, wenn (REF ($ rechts) $ RECHTS-> ISA ('Währung :: USD')) {Rendite $ Links-> Wert $ rechts-> Wert; } # Ansonsten gehen wir an, dass wir mit # gegen einen numerischen Wert einiger Sachvergütung vergleichen. }} # Ein Beispielnutzung der Klasse :: Vergleichbares Objekt My $ Buck_Fiftty = Währung :: USD-> NEU (1,50); meine $ dollark_n_half = curely :: usd-> neu (1,50); ($ buck_fiftty == $ dollar_n_half) # Diese sind gleich (1,75> $ buck_fiftty) # 1.75 ist mehr als ein Bock fünfzig meine $ Two-Bits = Währung :: USD-> NEU (0,25); ($ twal_bits <$ dollark_n_half) # 2 Bits ist kleiner als ein anderthalb Dollar und eine Hälfte ($ Two-Bits == 0,25) # zwei Bits sind gleich 25 Cent-Anforderungen: · Perl.

Klasse :: Vergleichbar Zugehörige Software