3 package Catalyst::Plugin::Cache::Backend::Memory;
9 use Storable qw/freeze thaw/;
11 sub new { bless {}, shift }
13 sub get { ${thaw($_[0]{$_[1]}) || return} };
15 sub set { $_[0]{$_[1]} = freeze(\$_[2]) };
17 sub remove { delete $_[0]{$_[1]} };
27 Catalyst::Plugin::Cache::Backend::Memory - Stupid memory based caching backend.
31 use Catalyst::Plugin::Cache::Backend::Memory;
33 my $m = Catalyst::Plugin::Cache::Backend::Memory->new;
35 $m->set( foo => "thing" );