blob: 54072dc4957294f516ae2347256eda7fe353a193 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
use Cache::Memcached::Fast;
use Devel::Peek;
my $mc = Cache::Memcached::Fast->new( { servers => ['127.0.0.1:11211'] });
my $v=[$ENV{PATH}];
Dump($v->[0]);
$mc->set("taint", $v);
Dump($v->[0]);
Dump($mc->get("taint")->[0]);
|