File Coverage

blib/lib/Catalyst/Plugin/Cache/Backend/Memory.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch	0	2	0.0
condition			n/a
subroutine	4	8	50.0
pod	0	4	0.0
total	16	31	51.6

#!/usr/bin/perl

package Catalyst::Plugin::Cache::Backend::Memory;
use Storable;

use strict;
use warnings;

use Storable qw/freeze thaw/;

sub new { bless {}, shift }

sub get { ${thaw($_[0]{$_[1]}) || return} };

sub set { $_[0]{$_[1]} = freeze(\$_[2]) };

sub remove { delete $_[0]{$_[1]} };

__PACKAGE__;

__END__

=pod

=head1 NAME

Catalyst::Plugin::Cache::Backend::Memory - Stupid memory based caching backend.

=head1 SYNOPSIS

    use Catalyst::Plugin::Cache::Backend::Memory;

    my $m = Catalyst::Plugin::Cache::Backend::Memory->new;

    $m->set( foo => "thing" );

=head1 DESCRIPTION

This backend uses L<Storable> to cache data in memory.

In combination with an engine like FastCGI/mod_perl/prefork which calls fork()
your cache will get async because child processes don't share cache in memory.

=cut