view release on metacpan or  search on metacpan

eg/serialization.pl  view on Meta::CPAN

            $cb->($result->{value});
        }
    });
}

# Store a complex structure
my $user = {
    id    => 42,
    name  => 'Alice',
    roles => [qw(admin editor)],
    prefs => { theme => 'dark', lang => 'en' },
};

set_data("user:42", $user, 300, sub {
    my ($res, $err) = @_;
    die "set: $err" if $err;
    print "Stored user struct\n";

    get_data("user:42", sub {
        my ($data, $err) = @_;
        die "get: $err" if $err;