Yet Another CPAN Grep

Cache-Memcached-AnyEvent ( D/DM/DMAKI/Cache-Memcached-AnyEvent-0.00021.tar.gz, DMAKI, 2012; MetaCPAN )

Cache-Memcached-AnyEvent/lib/Cache/Memcached/AnyEvent/Serializer/JSON.pm ( view source; MetaCPAN )

age Cache::Memcached::AnyEvent::Serializer::JSON;
use strict;
use Module::Runtime ();
BEGIN {
    my $backend;
    foreach my $module (qw(JSON JSON::XS JSON::PP)) {
        eval { Module::Runtime::req

 "Could not find JSON backend module";
    }

    {
        no strict 'refs';
        *_encode_json = \&{"${backend}::encode_json"};
        *_decode_json = \&{"${backend}::decode_json"};
    }
}

sub

{$_[1]}  = _encode_json(${$_[1]});
    ${$_[2]}  = bytes::length(${$_[1]});
    ${$_[3]} |= Cache::Memcached::AnyEvent::F_SERIALIZE();
}

sub deserialize {
    ${$_[1]} = _decode_json(${$_[1]});
}

1;