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;