CPAN::Groonga

 is escaped into a hex code because that is acceptable in
both Javascript and JSON strings, whereas \' is not valid in JSON.

Angle brackets are escaped because otherwise a value of </script> inside
a

e XAO::DO::Cache::Memcached;
use strict;
use XAO::Utils;
use XAO::Objects;
use XAO::Projects;
use JSON;
use Storable qw(freeze thaw);
use Encode;
use Digest::SHA;

use base XAO::Objects->load(objname 

  my $key=$self->make_key(shift);

    # We need to support storing undefs. All data is stored as JSON.
    #
    my $frozen_text=$self->memcached->get($key);

    if($self->{'debug'}) {
        dprin

text) {

        my $data;
        if(substr($frozen_text,0,1) eq '[') {
            $data=decode_json($frozen_text)->[0];
        }
        else {
            $data=thaw($frozen_text)->[0];
        }