view release on metacpan or  search on metacpan

lib/Plack/Session/Store/KyotoTycoon.pm  view on Meta::CPAN

our $VERSION = '0.1'; # VERSION

use parent 'Plack::Session::Store';


sub new {
    my ($class, %params) = @_;

    $params{tycoon} = _verify_tycoon_connection;

    return bless {%params} => $class;
}


sub fetch {
    my ($self, $key) = @_;

    my @data;
    try {
        @data = $self->{tycoon}->get($key);
    }