Yet Another CPAN Grep

Hash-Compact ( K/KE/KENTARO/Hash-Compact-0.06.tar.gz, KENTARO, 2012; MetaCPAN )

Hash-Compact/lib/Hash/Compact.pm ( view source; MetaCPAN )

age My::Memcached;

  use strict;
  use warnings;
  use parent qw(Cache::Memcached::Fast);

  use JSON;
  use Hash::Compact;

  my $OPTIONS = {
      foo => {
          alias_for => 'f',
      },

w(decode_json $value, $OPTIONS);
  }

  sub set {
      my ($self, $key, $value, $expire) = @_;
      my $hash = Hash::Compact->new($value, $OPTIONS);
      $self->SUPER::set($key, encode_json $hash->