Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
File	[ DIR ]	drwxr-xr-x
Memory	[ DIR ]	drwxr-xr-x
Null	[ DIR ]	drwxr-xr-x
RemovalStrategy	[ DIR ]	drwxr-xr-x
BaseCache.pm	14.73 KB	-rw-r--r--
BaseCacheTester.pm	2.76 KB	-rw-r--r--
Cache.pm	8.22 KB	-rw-r--r--
CacheMetaData.pm	5.73 KB	-rw-r--r--
CacheSizer.pm	3.94 KB	-rw-r--r--
CacheTester.pm	13.05 KB	-rw-r--r--
CacheUtils.pm	2.85 KB	-rw-r--r--
Entry.pm	8.37 KB	-rw-r--r--
File.pm	16.72 KB	-rw-r--r--
FileBackend.pm	14.06 KB	-rw-r--r--
FileCache.pm	7.17 KB	-rw-r--r--
IOString.pm	3.24 KB	-rw-r--r--
Memory.pm	9.64 KB	-rw-r--r--
MemoryBackend.pm	2.57 KB	-rw-r--r--
MemoryCache.pm	2.76 KB	-rw-r--r--
Null.pm	2.27 KB	-rw-r--r--
NullCache.pm	2.21 KB	-rw-r--r--
Object.pm	3.4 KB	-rw-r--r--
RemovalStrategy.pm	1.03 KB	-rw-r--r--
SharedMemoryBackend.pm	4.72 KB	-rw-r--r--
SharedMemoryCache.pm	3.4 KB	-rw-r--r--
SizeAwareCache.pm	3.04 KB	-rw-r--r--
SizeAwareCacheTester.pm	5.66 KB	-rw-r--r--
SizeAwareFileCache.pm	3.68 KB	-rw-r--r--
SizeAwareMemoryCache.pm	3.35 KB	-rw-r--r--
SizeAwareSharedMemoryCache.pm	2.55 KB	-rw-r--r--
Tester.pm	13.44 KB	-rw-r--r--

Code Editor : SizeAwareFileCache.pm

######################################################################
# $Id: SizeAwareFileCache.pm,v 1.28 2002/04/07 17:04:46 dclinton Exp $
# Copyright (C) 2001-2003 DeWitt Clinton  All Rights Reserved
#
# Software distributed under the License is distributed on an "AS
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either expressed or
# implied. See the License for the specific language governing
# rights and limitations under the License.
######################################################################

package Cache::SizeAwareFileCache;

use strict;
use vars qw( @ISA );
use Cache::CacheSizer;
use Cache::CacheUtils qw( Static_Params );
use Cache::FileCache;
use Cache::SizeAwareCache qw( $NO_MAX_SIZE );

@ISA = qw ( Cache::FileCache Cache::SizeAwareCache );

my $DEFAULT_MAX_SIZE = $NO_MAX_SIZE;

sub Clear
{
  my ( $p_optional_cache_root ) = Static_Params( @_ );

Cache::FileCache::Clear( $p_optional_cache_root );
}

sub Purge
{
  my ( $p_optional_cache_root ) = Static_Params( @_ );

Cache::FileCache::Purge( $p_optional_cache_root );
}

sub Size
{
  my ( $p_optional_cache_root ) = Static_Params( @_ );

return Cache::FileCache::Size( $p_optional_cache_root );
}

sub new
{
  my ( $self ) = _new( @_ );
  $self->_complete_initialization( );
  return $self;
}

sub get
{
  my ( $self, $p_key ) = @_;

$self->_get_cache_sizer( )->update_access_time( $p_key );
  return $self->SUPER::get( $p_key );
}

sub limit_size
{
  my ( $self, $p_new_size ) = @_;

$self->_get_cache_sizer( )->limit_size( $p_new_size );
}

sub set
{
  my ( $self, $p_key, $p_data, $p_expires_in ) = @_;

$self->SUPER::set( $p_key, $p_data, $p_expires_in );
  $self->_get_cache_sizer( )->limit_size( $self->get_max_size( ) );
}

sub _new
{
  my ( $proto, $p_options_hash_ref ) = @_;
  my $class = ref( $proto ) || $proto;
  my $self  =  $class->SUPER::_new( $p_options_hash_ref );
  $self->_initialize_cache_sizer( );
  return $self;
}

sub _initialize_cache_sizer
{
  my ( $self ) = @_;

my $max_size = $self->_read_option( 'max_size', $DEFAULT_MAX_SIZE );
  $self->_set_cache_sizer( new Cache::CacheSizer( $self, $max_size ) );
}

sub get_max_size
{
  my ( $self ) = @_;

return $self->_get_cache_sizer( )->get_max_size( );
}

sub set_max_size
{
  my ( $self, $p_max_size ) = @_;

$self->_get_cache_sizer( )->set_max_size( $p_max_size );
}

sub _get_cache_sizer
{
  my ( $self ) = @_;

return $self->{_Cache_Sizer};
}

sub _set_cache_sizer
{
  my ( $self, $p_cache_sizer ) = @_;

$self->{_Cache_Sizer} = $p_cache_sizer;
}

__END__

=pod

=head1 NAME

Cache::SizeAwareFileCache -- extends Cache::FileCache

=head1 DESCRIPTION

The SizeAwareFileCache class adds the ability to dynamically limit the
size (in bytes) of a file system based cache.  This class also
implements the SizeAwareCache interface, providing the 'max_size'
option and the 'limit_size( $size )' method.

=head1 SYNOPSIS

use Cache::SizeAwareFileCache;

my $cache =
    new Cache::SizeAwareFileCache( { 'namespace' => 'MyNamespace',
                                     'default_expires_in' => 600,
                                     'max_size' => 10000 } );

=head1 METHODS

See Cache::Cache and Cache::SizeAwareCache for the API documentation.

=head1 OPTIONS

See Cache::Cache and Cache::SizeAwareCache for the standard options.

=head1 PROPERTIES

See Cache::Cache and Cache::SizeAwareCache for the default properties.

=head1 SEE ALSO

Cache::Cache, Cache::SizeAwareCache, Cache::FileCache

=head1 AUTHOR

Original author: DeWitt Clinton <dewitt@unto.net>

Also: Portions of this code are a rewrite of David Coppit's excellent
extensions to the original File::Cache

Last author:     $Author: dclinton $

=cut

${this.title}

Code Editor : SizeAwareFileCache.pm