Hash :: Compact.

Eine Hash-basierte Objektimplementierung mit Tastenalias und Standardwertunterstützung
Jetzt downloaden

Hash :: Compact. Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Name des Herausgebers:
  • Kentaro Kuribayashi
  • Website des Verlags:
  • http://search.cpan.org/~kentaro/

Hash :: Compact. Stichworte


Hash :: Compact. Beschreibung

Eine Hash-basierte Objektimplementierung mit Tastenalias und Standardwertunterstützung Wenn wir einen strukturierten Wert in eine Spalte einer relationalen Datenbank oder einem Schlüssel- / Wertspeicher speichern, kann die Redundanz von langen Schlüsselnamen ein Problem für den Speicherplatz sein Ziel ist es, sowohl der Weltraumeffizienz als auch der Leichtigkeit für das US -Synopsis-Paket aufmerksam zu sein. Verwenden Sie streng; Warnungen verwenden; Verwenden Sie das Elternteil QW (Cache :: MEMCACHED :: FAST); Verwenden Sie JSON; Verwenden Sie Hash :: Compact; Meine $ Optionen = {foo => {alias_for => 'f',}, bar => {alias_for => 'b', default => 'bar',},}; Sub bekommen {My ($ self, $ Key) = @_; mein $ value = $ self-> super :: get ($ key); Hash :: Compact-> NEU (DECODE_JSON $ VALUE, $ Optionen); } SUB SET {MY ($ self, $ Key, $ Value, $ SPIRE) = @_; Mein $ Hash = Hash :: Compact-> NEU ($ VAREY, $ Optionen); $ self-> super :: set ($ Key, encode_json $ Hash-> to_hash, $ ablaufen); } Package Main; Verwenden Sie streng; Warnungen verwenden; Verwenden Sie den Test :: mehr; mein $ key = 'key'; mein $ value = {foo => 'foo'}; MEIN $ MEMD = MY :: MEMCACHED-> NEU ({Server => }); $ Memd-> Set ($ KEY, $ VALUE); mein $ cached_value = $ Memd-> Get ($ KEY); is_deply $ cached_Value-> param ('foo'), 'foo'; is_deply $ cached_Value-> param ('bar'), 'bar'; is_deply $ cached_Value-> to_hash, + {f => 'foo'}; $ cached_Value-> param (bar => 'baz'); $ Memd-> Set ($ KEY, $ Cached_Value-> to_hash); $ cached_Value = $ Memd-> Get ($ KEY); is_deply $ cached_Value-> param ('foo'), 'foo'; is_deply $ cached_Value-> param ('bar'), 'baz'; is_deply $ cached_Value-> to_hash, + {f => 'foo', b => 'baz'}; done_testing; Anforderungen: · Perl.


Hash :: Compact. Zugehörige Software