sub set_in_cache {
my ( $self, $key, $value, $options ) = @_;
my $unsafe = $options->{unsafe} || 0;
# the key mustn't contain whitespace (or control characters) for memcache
# but shouldn't be any harm in applying it globally.
$key =~ s/[\x00-\x20]/_/g;
-