Cache::Funky::Storage::Simple - Simple storage class.

Cache-Funky documentation Contained in the Cache-Funky distribution.

Index

Code Index:

NAME

Top

Cache::Funky::Storage::Simple - Simple storage class.

SYNOPSIS

Top

    use Cache::Funky::Storage::Simple;

DESCRIPTION

Top

This is not recommended to be used by your application.

METHODS

Top

get( $key , [ $id )

set( $key, $value , [ $id )

delete ( $key , [ $id )

AUTHOR

Top

Masahiro Funakoshi <masap@cpan.org>

Cache-Funky documentation Contained in the Cache-Funky distribution. 
package Cache::Funky::Storage::Simple;

use strict;
use warnings;
use base qw( Cache::Funky::Storage );

my $_CACHE = {};

sub get {
    my $s   = shift;
    my $key = shift;
    my $id  = shift;

    return $id ? $_CACHE->{ $key }{ $id } : $_CACHE->{ $key };
}

sub set {
    my $s     = shift;
    my $key   = shift;
    my $value = shift;
    my $id    = shift;

    if( $id ) {
        $_CACHE->{ $key }{ $id } = $value;
    }
    else {
        $_CACHE->{$key} = $value;
    }
    return 1;
}

sub delete {
    my $s   = shift;
    my $key = shift;
    my $id  = shift;

    $id ? delete $_CACHE->{ $key }{ $id } : delete $_CACHE->{ $key };
}

1;