Cache::Funky::Storage::Memcached - Cache::Funky Memcached Storage.

Cache-Funky-Storage-Memcached documentation Contained in the Cache-Funky-Storage-Memcached distribution.

Index

Code Index:

NAME

Top

Cache::Funky::Storage::Memcached - Cache::Funky Memcached Storage.

DESCRIPTION

Top

Memcached Storage for Cache::Funky

SYNOPSIS

Top

  package MyCache;

  use strict;
  use Cache::Memcached;
  use base qw/Cache::Funky/;

  __PACKAGE__->setup('Storage::Memcached' => { servers => [ '127.0.0.1:12345' ] });
  __PACKAGE__->register( 'foo', sub { time } );
  __PACKAGE__->register( 'boo', sub { shift . '_' . `date` } ); # * date: $id + _Tue May 1 21:53:36 JST 2007

  1;

run.pl

  #!/usr/bin/perl

  use strict;
  use MyCache;
  use Perl6::Say;

  say ( MyCache->foo() );
  sleep(3);
  say ( MyCache->foo() );

  MyCache->delete('foo');
  say ( MyCache->foo() );

  say ( MyCache->boo('id1') );
  say ( MyCache->boo('id2') );

  sleep 10;
  say ( MyCache->boo('id1') );

  # only remove id1
  MyCache->delete('boo', 'id1');

  say ( MyCache->boo('id1') );
  say ( MyCache->boo('id2') );

  MyCache->deletes([qw/foo boo/]);

METHOD

Top

new

set

get

delete

SEE ALSO

Top

Cache::Funky

AUTHOR

Top

Tomohiro Teranishi <tomohiro.teranishi@gmail.com>

COPYRIGHT AND LICENSE

Top

Copyright (c) Tomohiro Teranishi, All rights reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.

Cache-Funky-Storage-Memcached documentation Contained in the Cache-Funky-Storage-Memcached distribution. 
package Cache::Funky::Storage::Memcached;

use warnings;
use strict;
use base qw/Cache::Funky::Storage/;
use Cache::Memcached;

our $VERSION = '0.07';

sub new {
    my $class = shift;
    my $args  = shift;

    my $s = {};
    $s->{memcached} = Cache::Memcached->new($args);

    return bless $s, $class;
}

sub set {
    my $s     = shift;
    my $key   = shift;
    my $value = shift;
    my $id    = shift;

    $key = $id ? $key . ':' . $id : $key;

    $s->{memcached}->set( $key, $value );

    return;
}

sub get {
    my $s   = shift;
    my $key = shift;
    my $id  = shift;

    $key = $id ? $key . ':' . $id : $key;

    return $s->{memcached}->get($key);

}

sub delete {
    my $s   = shift;
    my $key = shift;
    my $id  = shift;

    $key = $id ? $key . ':' . $id : $key;

    $s->{memcached}->delete($key);
}

1;