package TestCache;
use Storable qw( freeze thaw );
sub new {
my $class = shift;
my $self = {};
bless $self, $class;
return $self;
}
sub set {
my $self = shift;
my $key = shift;
my $value = shift; # an HTTP::Response
my $res = thaw( $value );
$res->content( "DUMMY" );
$self->{$key} = freeze($res);
}
sub get {
my $self = shift;
my $key = shift;
return $self->{$key};
}
1;