view release on metacpan or  search on metacpan

lib/DWH_File/Cache.pm  view on Meta::CPAN

sub new {
    my ( $this ) = @_;
    my $class = ref $this || $this;
    my $self = {};
    bless $self, $class;
    return $self;
}

sub encache {
    # weaken if available
    $_[ 0 ]->{ $_[ 1 ]->cache_key } = $_[ 1 ];
    $_[ 1 ]->cache_up;
}

sub decache {
    delete $_[ 0 ]->{ $_[ 1 ]->cache_key };
    $_[ 1 ]->cache_down;
}

sub retrieve {