package CHI::Test::Driver::Readonly;
$CHI::Test::Driver::Readonly::VERSION = '0.60';
use Carp;
use Moo;
use strict;
use warnings;
extends 'CHI::Driver::Memory';
sub store {
my ( $self, $key, $data ) = @_;
croak "read-only cache";
}
1;
package CHI::Test::Driver::Readonly;
$CHI::Test::Driver::Readonly::VERSION = '0.60';
use Carp;
use Moo;
use strict;
use warnings;
extends 'CHI::Driver::Memory';
sub store {
my ( $self, $key, $data ) = @_;
croak "read-only cache";
}
1;