lib/CloudStore/memcache.pm

   1 package CloudStore::memcache;
   2
   3 use Cache::Memcached;
   4 use JSON::XS;
   5
   6 sub new {
   7         my ($class) = @_;
   8         my $server = new Cache::Memcached {
   9 #               'servers' => [ "127.0.0.1:11211" ],
  10                 'servers' => [ "127.0.0.1:11222" ],
  11                 'debug' => 1,
  12         #       'compress_threshold' => 10_000,
  13         };
  14         #$server->set_servers($array_ref);
  15         #$server->set_compress_threshold(10_000);
  16         $server->enable_compress(0);
  17
  18         my $self = { server => $server };
  19         bless $self, $class;
  20
  21         return $self;
  22 }
  23
  24 sub get {
  25         my ($self,$k) = @_;
  26         decode_json $self->{server}->get( $k );
  27 }
  28
  29 sub set {
  30         my ($self,$k,$v) = @_;
  31         $self->{server}->set( $k => encode_json $v );
  32 }
  33
  34 1;